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本 書 は 、FM 一 7 7 に 内 蔵 き て れ て いる ディ スク の 基本 操作 と その 笑 
用 法 に つい て 解説 し た も の で す 。 

ピゲ が ネス ョ っ マイ コン ショ ーー エ 太 どど で の デモ ンス トレ ーション シン は 、 
を く (の グラ フィ ッ ク デ ー タ を この ディ スク に 保存 し 、 そ れ を いろ いろ 
な 料理 法 に よっ て グラ フィ ッ ク 図 形 を ディ スプ レイ に 表示 させ 、 私 だ 
ちの 目 を 楽し ませ て くれ る の で す 。 

デモ ンス トレ ーション を 見 て いる と 私 た ち を 愛 の 世界 に 引き 入れ て 
あし 用 に 、 と も する よ 、 フ 2 ラジ ツ W ま た だ あ ば と ん な こと で も 6 て 
そう な 錯覚 に な ちい ら せ ま す 。 

デイ スク 内 蔵 タ イプ の パソ コン を 使え ば 、 確 か に 相当 な こと が で き 
ます 。 し か し 、 そ こま で いく に は ある 程度 の 努力 が 必要 で す 。 別に お 
どか すわ け で は あり ませ ん が 、 事 実 で す 。 

また 、 情 報 化 時 代 に パッ ュ ン を 活用 し よう と 思う と 、 ど 2 し て も 多 
量 の デー タ を 扱う こと に な り ま すか ら 、 デ イィ イス ク 操 作 に 関す る 知識 は 
可 欠 で す 。 一 方 最近 、 デ ィ ス ク 内 蔵 タ イプ の パソ コン が 増加 する 傾 
向 に あり 、 時 代 の 要求 を 端的 に 物語 っ て いま す 。 

章夫 の みな きん は 、 ぼん な こと を や っ て みた いと も 考え た で て すか 7? 

集計 業務 、 在 庫 管理 、 顧 客 管理 、 グ ラフ ィ ッ クス な ど な ど 、 を の 目 
的 は いろ いろ ある と 思い ます 。 し か し 目的 は 違っ て も 、 考 え ぇ 方 の 基本 
は みな 共通 し て いま す 。 

を こ で 本 書 で は 、 こ うい っ た 時 代 背 景 を ふま えて 、 具 体 例 に を くし 
て デー タ の 扱い 方 を や き さ し く 解 説 し 、 パ ソコ ン 実 用 化 を 目 ざ す 方 々 の 
た め の 道 し る べ と な れ ば と 考え て いま す 。 

本 書 に よっ て ぜひ ディ スク 操作 の 基本 も マス ター し 、 実 務 面 で 役 立 
て て いた だ だ ける こと を 期待 し ます 。 

な お 本 書 で て は 、F 一 BAS 1TC の 差 夫 的 な ユマ ンド ト 、 ス テー トメ ン 
ト 等 に つい て は あま り 説 明 を 加え を て お お り ま せん の で 、BASIC プ ブロ 
グラ ミン グ を まだ 勉強 る れ て な い 方 は 、 次 の 本 を 終え て か ら 本 書 に 進 
ま 入 な こと を お も 全 す めし ます 。 


FM-7 7 プロ ログ ラミ ング 入門 (チッ メ 社 ) 
最後 に 、 原 稿 整理 で ち ぉ 世話 に な っ た パソ コン 編集 部 の 方 々 に 御礼 申 
し MMW ま す 。 
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< 注 > ブ プリ ンタ へ の 出力 も 多 
少 扱い ます の で 、 あ れ ば 便 
利 で す が 。 な く て も か まい 
ませ ん 。 お 持ち で な い 方 は 
画面 表示 へ 切り 換え て くだ 
さい 。 


ああ が だ だ 中 いま 、 NM 一 77 を 前 に し て どん な 気性 で し ょ うか が 7 


これ か ら 徐 々 に この 本 を 読み 進む に つれ て 、 あ な た の ディ スク へ の 調 


理解 が 深まり 、 仕 事 に 、 を し て 趣味 に お お ない に 生か すこ と が で きる と 
狼 い ます 。 
まず 、 必 要 な 装置 の 確認 で す 。 


FM 一 7 7 本 体 
ディ スプ レイ 

ンス デム ディ スク 
新しい ディ スク 3 枚 


4 DD を あぶ で WW は AO DD よう ポポ で す 。 
FM 7 7 本 体 は ドラ イブ (四角 い 3.5 イ ンチ ディ スク を 差し 込む & 


di のり が 1 の の タイ 、(D1) 上 2 つの タイ ズ プ (D2) が あり 生還 


どちら 5 で も で も か まい ませ ん 。 た だ し 本 書 は 、D 2 タイ プ に そく <〈 織 
説明 を 進め ます か ら 、D 1 タイ グ ご 使用 の 方 は 注意 書き に 従っ て 読み 
進め て くだ きい 。 

ディ スプ レイ は カラ ー で も モノ クロ で も どちら て も か まい ま 枯 放 還 

シス テム ディ スク と は 、FMー7 7 本 体 購入 時 に 標準 添付 きれ て ゆ W 
る 四角 い デ ィ ス ク の うち 「FーーBAS1C」 と 書か れ だ ラベ ル が 貼っ 
て ある ディ スク で す 。 こ の 中 に は 、 デ ィ ス ク 操 作 を 可能 に する た め の 
機械 語 プ ログ ラム と か 、 そ の は ほか 便利 で 実用 的 な が プログ ラム が 記録 る れ 
て いま すか ら 6 大 切 に し て 《 だ きい (イメ ー ジ 的 に は レコ ー ド 北 に MI 較 
いろ な 曲 が 記 録 き れ て いる の を 思い 浮か で て くだ さい 》 

新しい ディ スク (3.5 イ ンチ の マイ クロ フロ ッ ピ イデ ィ ス ク ) ( 全 財 還 
の メー カー の も の で も よい の で す が 、 で きた ら 富 士 通 の 標準 の ゎぁ の が 
水上 TO 


マイ クロ フロ ッ ピ イデ イィ イス ク の 各部 名 称 を 右 ペ ー ジ に 示し まず 張 議 
(に LU で で 室 上 


な お 本 章 の 記事 は 『FM 一 7 7 プロ グラ ミン グ 入 門 」 と 多少 重 覆 
する と ころ が あり ます が 、 こ れ は 本 書か ら 勉 強 る れる 読者 も いる と 考 
深め の て ご ぐす 宮 0 7O09。 
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!・ ど 電源 を 入れ て みよ う 


何 は と も あれ 、 電源 を 入れ な けれ ば 事 は 運び ま ぜん 。 と に か くく や っ 


て みほ きしょう 。 
記 ォ 区 み 電気 に 弱い と いう 方 、 コン ピュ ー タ アレ ルギー の 方 、 と に か く 説明 
ドラ イブ する と お り に や っ て みて くだ さい .。 
〈 注 > の 操作 に 移る 前 に 、 *、 本 書 で は 、 3.5 イン チ の 小 き な 四角 い 磁気 艇 を 「 デ ィ ス ク 」 


本 体 前 面 に ある ボタ ン の う ( 了 の 
圭 や 剛 貝 
遇 の 倫 流 G」 た 衝 尺 で 本 因 し 。 アイ スク を や セッ ト す る 本 体 の 挿入 口 を ドラ イプ ブ 」 と 呼ぶ 


ある ボタ ン を 押し て お いて こと に し ます ( 右 ペー ジ の 図 を 参考 に し て くだ きい ). 
くだ さい 


⑳ まず テディ スプ レイ の 電源 を 入れ て 少 し あたため て くだ さ いく 注 >。 
9 る る 作 直 1 ワー スイ タチ -(POW 史 ER) 抽 MMr ( な Wibu 
ら て まあ 7 に ばら くし て 次 の よ うぅ な 画面 に な り ま し た ね . 











「 人 ゆび ア イス タク を 便 お 放 は き の 初期 画面 で ま 。 RML 7 FM 
7 な ど を 、 オ プシ ョ ン の ディ スク を つけ ず に 使用 し た と き は . 
R OM ベー ス 2 て GS 則 じ 画面 だ っ 放 M 訂 す (これ を 上 ROM ペ ニス 。 ょ いい 
表 9 
し 穫 だ の は 、 まつ か 4 訂 4 スク タネ キット (ディ スク 装置 ) 内 基 
OU ま 坦 IN0 か か ネ ん 催 四 和 2 (に ん な Fa 
ディ スク ベー ス (ペク ペー スズ 』 も 7 VN 作 し た いも の で ナル 








それ で は や っ て み ま し ょ う .。 

稚 ます 、 本 体 の 電源 だ け を 切っ て くだ さい 。 

12) シス テム ディ スク 」 を 用 意 し て くだ さい 。 

3) ィ イ スク の 考 の 書い て ある ほう を 上 に し 、 か っ 、 テ ィ ス クト に 
書か れ て いる 矢印 の 方 向 に 向け て くだ さい 。 

4 ) 「 フイ プ 0 と 書い て ある 挿入 口 に その まま 半分 くら い 差し 込ん で 
《 く だ さい 。 








{ Lood ヨゴ] 軸 平 告 と オン プ 


< の 〆 平 ( 間 加 りー-2A/ 





⑳ 本 体 の パワ ー ボ タン を 押し て くだ さい 。 
⑯ 次 に 、 あ まり 時 間 を お か な いう ち に ディ スク を 突き 当たる まで 提 
し 込ん で 〈 く だ さい 。 


これ で 前 半 の 準備 は 終り で す 。 し ば らく する と 「 ピ ーッ 」 と いう 音 
と と も に 画面 に 次 の メッ セー ジ が 表示 る れ ま すね 。 


DISK VERSIOUN 


HOuM many d ュ 1=8k ビュ ve8 





こ 牝 繊 あ だ 人 と 問い か け て いる 
の で す 。 あ な た の 機種 の 内 蔵 デ ダ ィ スク 数 が 「2 」 な ら ば 、 キ ー ボ ー ド 
右側 の 数 字 キ ー の 中 の キー を 押し て 、 次 に と いう キー 放し 
て くだ きい 。 まる と 厨 度 は 油 の メッ セー ジ や す 。 


Hou many disk 和 †iles(0-15)? 較 





これ を 日 本 語 に 訳す と 「( 使 用 する ) 引 
いう 意味 に な り ま す 。 い ま は 何 の こ と か る っ ぱり わか り ま せん が 、 そ を 
か まい まぜ ん 。 

と こさ で は 発 ほ きよ 同じ きま 8 付 、 の キー を 押し て か ら 才 
押し て くだ きい 。 ディ ルス アイ 画 面 は 次 の よう に な りえ まし だ た 。 


DISK VERSION 
Hou many d ュ 18k PU NN の 
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これ 常に 内 純 イ スグ 浴 便 の し が O あ 店 うに な っ た の で す 。 睦 
わし いこ と は ば は よく 〈 く わからない か も し れ ま せん が 、 こ の まま 次 へ わ お 進 導 
(た WS 





]・3 ファ イル を 画面 に 表示 する 


Me ら は 「 プ ブロ グラ ミン グ 人 入門 」 段階 で は 「 フ ァイル 」 と いう 表現 
を 使わ ず に 、 単 に 「 プ ログ ラム 」 と 呼ん で いま し た が 、 こ れ は 正確 に | 
ほ は 「 プ ログ ラム ファ イル 」 と 呼び ます 。 プロ グラ ム フ ァ イル 
ジア イル に は この ほか 「 デ ー タ ファ イル 」 と いう の が あり ます が 、 

sm れれ は 徐々 に 説明 し ます 。 

還 あがい ま デ ィ イィ スク を 立ち 上 げ る の に 使っ た シス テム ディ イス ネス ク に 
還 5 いろ あな フ ア イ ル が お さめ ら 和 て いま す 。 こ こ で は まず 、: ど ん 
如 ヲ アイ ル が 入っ て いる の か 、 こ れ を 画面 に 表示 る きせ て みる こと に し 

昌 上 | それ に は FILES (ファ イル ズ ) コマ ンド を 使い ます 。 書式 FILES 
崩 肉 の と お り で す 。 


FILES "0:" 














ドラ イブ 0 の ディ スク の ファ イル を 表示 





FILES "1 ドラ イブ | の ディ スク の ファ イル を 表示 
旧法 0 2 
コロ ン 
ドラ イブ 番号 





ダズル の み ょ ー テ ー シ ョ ッ 

還 導 時 9 に キー イン し て リタ ー ン キー を 押せ ば よい の で す が 、 ド ラ 
f「 プ 0 の ディ スク の ファ イル を 表示 する 場合 に は ドラ イブ 番号 の 指定 
肖 賠 し て 


FILES 


回 還 6 も 6 て きま す 。 
私 ね も は 現在 シス テム ディ スク を ドラ イブ 0 に セッ ト し て あり ます 
jj 、 い ま 述 べた 省略 形 の ほう を 使い 、 画 面 を セク リア し て か ら 次 の よ 
環 閣 ew ガ イン し よし ょ 2 う 。 


| FILES | 


咽 面 は ほぼ の よう に な り ま し た か ? < 洲 F IL ES ヨコ ヨコ マ ンド を 
es 実行 する と 、. 正 の ほう が の 
* ヴー・ VOB 空 * カ が 有 % | ミア oy ) 
ル クア ァ アベ ッ ト 、 0 3MLTN て 、 何 が な ん だ か きる っ ぱり わ ん が ん スク MA 
0 ませ ぜ せん ね 。 少し ずつ 説明 し まし ょ う 。 て 消え て し まい ます か ら 、 
理 訂 、 標 槍 浅 付 の シス テム デイ スク に は 「 デ モン スト レー ショ ン フ '′” そん な と き は (ESC) キー 
。 6 を 押し て くだ さい 。 一 時 的 
1! ウム 」 を の 他 、 日 常 あ ま り 使わ な いも の が お さる さめ ら れ て いま す 。 に 画面 が 停止 し ます 。 表示 
己 Wm ジ の 面 は 、 筆 者 が 使い 勝手 が よい よう に 作り 変 た だ た ディ スク を 再開 し た けれ ば 何 か ほ か 
了 3 NN 0 N 、 の キー を 押し て くだ さい 
編 向 堆 で す 。 説明 上 は 支障 あり ませ ん の で 、 こ の まま 読み 進ん で くだ 


重い 。 み な る ん は 本 章 を 読み 終え を て か ら 、 こ れ と 同じ ディ スク を 作る 


汗 1 章 ディ スク の 基本 操作 13 


と よい で て しょ う 。 (5 ・d 衛 参 服 の こと ) 


FILES 


DFMCD 
MCOPY 
SYSUSK 
VULCUPY 
AUTOUUTY 
PFDUEF 
EE り RY 
FCUPYN 
加 抽 4 ココ 5 


| 思 ep 用 ep 四 ep 所 ep 応 m 四 ep 直る 邊 る 
CO の の の の の の の 
CO) O) 〇 の) 0) 〇 の) び ) 〇 の ) び ) 〇 の 
に (の けけ ビ ビビ ビビ ロビ 


140 し lustersa Free 


Read ッ 
癌 





例 と し し て 、 上 の 画面 の 「DFMCD」 の 行 を 取り 上 げ ま し ょ う 。 
1 つの 行 は 次 の りょう な 構成 に な っ て いま す 。 


DFMCD BS5 Il 


上 の 例 に そっ て 簡単 に 説明 し て お きま す が 、 ま だ 理解 で き な い 部 分 
も 多い と 思い ます 。 そ ん な 方 は 、 無 理 に 理解 し よう と せ ず 、「 そ の う 座 
わか っ て 《 る だ ろう 」 て くら 5 い の 軽 い 気 持 で 先 へ 進ん て くだ さい 。 敵 還 
本 を 読み 進む うち に 、 で きる だ け こ れ ら の こと が 氷解 する よう に 心 が 
ける つも り で す 。 


W ファ イル 名 
これ は 説明 が な (と も わか る と 思い ます 。 ブ プロ グラ ムク ファイ M 
デー タフ ァイル の 名 前 が これ に 相当 し ます 。 
と 決め られ て いま すず 。 ま だ た 、 2 計 還 





こう いっ た 制限 の 中 で わか りや す 
剛 革 凍 あつ け て お おく 《 と よい で し ょ う 。 


ゆめ ファ イル の 種類 
面 に 表示 る れる 数 字 に よっ て 、 私 た ち は フ ァイル の 種類 を 知る 
間 が で きま す 。 分類 は 次 の と お り で す 。 


ーー ベー シッ ク て で 組ん だ プロ グラ ム フ ァ イル 
馬 了 いい クー タ マル イネ 紫 
人 = …… 機械 語 で 作っ た プロ グラ ム フ ァ イル 


電 ファ イル の 記録 形式 
中 和 れ は 、 そ の ファ イル が アス キー 形式 が バイ ナリ 形式 か を 示す も 
で 、 分 類 は 次 の と お り で す 。 


| アス キー 形式 
邊 | …… バイ ナリ 形式 


ログ ラム ファ イル を 例 に と り ま す と 、 ア スキ ー 形 式 と は 「 プ ブロ 
草 ぬ の 1 字 1 字 を その まま 忠実 に 記録 し て い 〈 (書き 込ん で いく ) 
呈 詞 」 て す 。 

思え ば 行 番号 100 と いう の が あっ だ と し ます と 、「 1 」 の アス キ 


wm ド は 16 進 数 の 「3 1」、「0」 の アス キー コー ド は 「30」 で 


か デイ スク に イメ ー ジ 的 に は 
| 30 30 


明 語 9 に 記録 し て いき ます 。 
ガ パ イ ナリ 形式 と は 「 プ ログ ラム を 圧縮 し て 書き 込ん で いく 形 
II です 。 
いま の 例 で い 〈 と 、 行 番号 100 は 16 進 に な な す と 「 色 HH6 4」 で す 
か 、 単 に 


6 4 


罰 けり 記録 きれ ます 。 

の よう に 、 ア スキ ー 形 式 と バイ ナ ザ サ 形 式 で は 記録 の され 方 が 違 
NII ディ スク 専有 量 に も だ いぶ 差 が で て きま す 。 デ ィ ス ク の 使 
用 勤 界 か らい 〈 と バイ ナリ 形式 の ほう が ずっ と 有利 で す が 、 ア スキ 
因 政 下 の プロ グラ ム フ ァ イル で な いと 使え な い コ マン ド 、 ス テー ト 
Wh トド も あり ます の で 、 そ の つど 使い 分 ける と よい で し ょ う 。 


ファ イル の 種類 


ファ イル の 記録 形式 
アス キー 形式 
バイ ナリ 形式 
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ファ イル の 形式 


専有 量 


バッ クア ッ プ ディ スク 
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⑳ ファ イル の 形式 
分 類 は 次 の と お り で す 。 


二 Cr シー ケン シャ ルフ ァイル 
本 tn0 ラン ダム ファ イル 


シー ケン シャ ルフ アァ 4 ルル 、 グル WW MG いで は あと で く 
わし くく 説明 する こと に な 上 まま の 性 逢 科 0 本 6 思い て くだ さい 。 


⑯⑥ 専有 量 

ディ スク も コン ピュ ー タ 本 体 ほ と 同じ よう に 、 あ る 一 定 の 記憶 容量 
を も っ て いま すず す が 、 専有 量 ほ 8 は 、 そ の ファ イル が ディ スネ ク 上 て の 
くら い の 容 量 を 使用 し て いる か を 示す も の で す 。 

単位 は クラ スタ で す が 、 こ れ も あ し と で 訓 明 し ます 。 


各 フ ァイル の 役割 


14 ペ ー ジ の 画面 を ご らん くだ きい 。 い ろ い ろ な ファ イル 名 が 表示 る 
れ て いま す が 、 お も な も の に つい て を の 役割 を 簡単 に 説明 し て お きま 
ME 宣 。 


⑳ DFMCD 一 6 の 「SYSDSK」 と と も に 用 いる マシ ン 語 
2 ガラ ルム ヤ す 。 

の ② MCOUPYーー づ の 「VOLCOPY」 と と も に 用 いる マシ ン 
本 2 衣 み テム て す 。 

@ SYS5D8K 一 一 新しい ディ スク を 「 シ ステ ム デ ィ イス ク 」 に す 
る だ ゆめ の ユー ティ リル キィ イィ アゲ 呈 グ ジム て す 。 ユー チ ティ リ チ ィ 」 は も 
は 「 便 利 で 実用 的 な 」 く らい に 考え て お ぉ け ば よい で し ょ う 。 

の 9 VOLCOUPY ヤ ーー これ は 、 あ る ディ スク の 内 容 を 新しい ディ 
和 X 少 に そ っ で く サ リコ ヨ ピ ビー すず る た みのり アロ グラ アム スム フ アテ アイル で て す 。 ラ 
ば vw て YY き あ 9 だ 新 し い が イ ス み の こと だ パッ タ ア マッ アデ 
イス タ と いい ます 。 こと 邊 も 生 ー ア イリ チル ジグ は グ ア お あて す 。 

AUTOUTYーー デ ィ ス ク を 自動 的 に 立ち 上 げ る た め の プ ブロ 
の 本 

⑥ PFDEFー- PF キー の 定義 用 プロ グラ ム で す 。 

の FCDPY ヤ ーー プロ グラ ム フ ァ イル まだ た は デー タフ ァイル を 他 
の リス ク に コピー る だ ゆあ の プログ ウム て すず す 。 


な ね を の 人 ほか の みみ ーー 人 パグ プ せ グラ ム に つい て は 『「 ユ デー ティ 
リティ プロ グラ ム 操 作手 順 』 を ご らん くだ きい 。 





い ) u 菩 。 」 FN 
1]・4 プロ グラ ム の ロー ド 
プロ グラ ム フ ァ イル を ディ ス 必 か ら 本 体 の メモ モモ り 上 に 呼び だ すこ ょ と 


を 「 プ ログ ラム を ロー ド 」 す る と いい 、LOAD コ マン ド を 使い ます 。 LOAD 
書式 は 次 の と お り で す 。 


LOAD “ファ イル ディ スク リブ タダ" 


アア イル ディ スク リプ タム は 「 ド ライ オア 番号 と フク ァイル 名 名 コ シ ファ イル ディ スク リア ガタ 
WW 明和 し だ 大学 列 の て こせ で て 、 だ と まあ 枕 ド タ オ イダ 0 の ガイ 炎 め に 『N 

RIMO」 とい ツ ウブ アザ オル が あろ だ と しか だか ら 、 る もの アイ オイル ダ ゲ ィ ス みみ リ V 
ワダ 低 、 





0: DEMU ーーーーーーG 


ょ 表 わ せ ます 。 
まき た か 、 ド テイ ダグ 1 の 天 メ スグ みり 「D 取 MD も 紀信 ジテ イル が あら 
刀 合 ん だ 人 め 、( 飽 のり フク ア パ ポ ボ が ネス グリ チタ は 、 





1 : DEMO @9 


守り ます 。 

だ だ し 、 ド ライ が 0 の の ィ スク の アア イル に 畑 U や で の みあ ドラ イダ 番 
な の 指定 を 省略 する こと が で きま す 。 つ まり 、 夫 の 場合 ドラ イブ 番号 
を 省略 し て 、 単 に 


DEMO 


て も 有朋 に よ 信 江 の 


まだ た ファ イル 名 は 大 文字 、 小 文字 の 区 別 が あり ます の で FEILES 
ョ コマ ンド て 画 画 に 表示 きれ た と ちり の 文字 を 使用 する よう に し て 《 だ 
きい 。 も し 、「DEMO」 を 小文字 に し て ロー ド し ょ うと し た 場合 、 そ 
の ファ イル が 実際 に ディ スク に な けれ ば 次 の よう な エラ ー メ ッ セ ー ジ 
が 表示 され ます 。 
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「File Not Found」、 つ まり 「 ロ ー ド し よう と し だ ファイル 名 が 見 
つか が かがり ま 世 ん 」 も いう お も わけ て す 。 








| で は 実際 に プロ グラ ム を ロー ド し て み ま し は ょ 2 う 。 
| ロー ド す る プロ グラ ム フ ァ イル は 、 次 節 で 使用 する 
| ら SYSDSK 


川 と ん きず 。 ジス チム ディ バス 名 作る た め の グ ログ ラス ラム て ます 。 
次 の よう に キー イン し て くだ きい 。 





l LOAD "SYSDSK 


| 64 ス アン クシ ョ ン キ ー の 「Ready」 の 表示 が で まし た ら ロ ー ド 終了 で す 。 2 、3 秒 で プログ 
証人 「LOAD ji SE IE こ ea 
み 3 1 3 ゝ ゝ 
UP ウ 逢 時 
これ を 使う と 便利 で す それ で は 、 実 際 ロ ー ド され た だ た か どう か 確認 し て み ま し ょ 2 う 。 
(PF2) キー に 「LIST 了 」 が 定義 きれ て いま すか ら 、 こ れ を 
押し て リス ト を 画面 に 表示 る きせ て みて くだ さい 。 




















次 節 へ 進む 前 に も う 1 つ だ け 勉 強し て お きま し ょ う 。 それ は 、 プ ロ 
グラ ム を ロー ド し て か ら RUN (実行 ) させ る 方 法 で す 。 
激 だ も が いま 学ん だ 方 油 で は 、 一 戻 プ ログ ラム を ロー ド し で 、 靖 な 
「RUN 陸 」 を 実行 する か 、 あ る い は キー を 押し て 実行 す 
る か し な けれ ば いけ ませ ん 。 
R オ プシ ョ ン 付 き と ころ が 、 こ れ を 一 挙 に や っ て し まう 方 法 が ある の で す 。 1 つ は RR 
yio オプ ショ ン 付 き の ロ ー ド で 、 書 式 は 次 の と ぉ お り で す 。 


LOAD "ファ イル ディ スク リプ ブタ ", H 


「R」 は 「RUN」 の 頭 文 字 で 、 大 文字 で も 小文字 び も か まい ませ 
ん 。「 ロ ー ド し て か ら プ ログ ラム を RUN せ よ 」 と いう こと で すね 。 
も う 1 つ は 、 直 接 RUN コ マン ド を 使っ て し まう 方 法 で す 。 書 式 は 
RUN 次 の と お り で す 。 


| RUN "ファ イル ディ スク リブ タ " | 


「 フ ァイル ディ スク リプ タ て で て 示さ れる ドラ イブ の ディ スク の 中 の 、 
目的 の ファ イル を RUN せ よ 」 と いう こと で す 。 これが 一 番 楽 を う で 
すわ ね 。 















































1・5 シス テム ディ スク の コピ ー を 作る 


ジ シス テム ディ スク は 大 切な も の で す 。 何ら か の 手違い で こわ れる こ 
と も あり えま す 。 万 一 の 場合 に そなえ て 、 い まみ な さん が 使っ て いる 
ンス テム デイ 久 グ みほ まっ つた (同じ も の を 便 っ で き ま も しょ う 。 

ディ スク に は ドラ イグ 数 が 1 つの タイ グ 、 2 つの タイ プ と 2 種類 あ 
り ま す が 、 こ こ で は 2 ドラ イブ の 場合 を 例 に と っ て 、 そ の 手順 を 説明 
し ます 。 1 ドラ イブ の ディ スク を ご 使用 の 方 は 、 こ の 記事 を 読み 、 を 
の あと て 『 デ ィ ス ク ユ ー テ ィ リ ティ 操作 手順 』」 を 見 な が 6 実行 し て み 
て 〈 く だ さい 。 少 し 手間 が か か る だ け で 、. や り 方 は あま り 変 わり ませ ん 。 





新しい ディ スク の セッ ト 


まず 、 条 し じい ディ 久 グ を 用 吉 し て くだ きい 。 

シネ ス テ デム デオ スク は ば は 現 秦 ドラ イフ 0 」 に セッ トド し で あり ます ね 。 
次 に 、 こ の 新しい 未 使用 の ディ スク を 「 ド ライ ブ 1 」 に セッ ト し て 
(だ M65 

これ で 電信 ポー グー で す 。 で は ある る 交 必 ます 。 

ユー テイ リティ イブ ログ ラム 「SYSDSK」 を ロー ド し て RUN き 
ぜ て 《 く だ さる い 。 前 節 で すでに ロー ド ず み の 方 は キー を 押し て 
で て 実 細 半 本 (0 だ MO 


RUN "SYSDSK” 


する と 画面 に 次 の メッ セー ジ が 表示 きれ ます 。 





こ 履 信 プ オー マッ ディ ング を も ます か 7 と な ず ね て いる の パプ 。「 必 交 軸 隔 の ネイ アグ 
私 だ ち が 購 入 し た だ 新しい ディ スク は 、 こ の まま で は まだ 使う こと が で 

きま せん 。 未 使用 の ディ スク に 「 あ る 一 定 の 情報 」 を 書き 込ん で 初期 
化し な けれ ば な り ま せん 。 こ の 作業 を も フォーマ ッ テ ィング と いい ます 。 

フォ ー マ ッ ティ ング が 必要 で す の で と キー イン し ます 。 

する も 飲 の あみ 人 6. 『( ア レア ォ オー マヤ メチ インデ よ ひよ うら mW あみ 2 才 2 
セッ トト し じ て で て ある) ドラ イブ 番号 は 何 番 で すか 7?」 と たずね て きま す 。 
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MHAT _ DISK _ DRIVE(0-3)? 和男 





私 だ 人 は 「F ド 芝 オ キダ ュ エキ 」 に も セッ トド ト し て ある の で 人 1 で すね 。 
の る さる 決 の よう 信 、 

業 融 居 了 ま 。 を し て 。、「READY?7)、 つ まり 9 
輝 備 で きま し た が 7?」 し と 確認 し て いま ず 。 


SET THE FORMATTING DISK ON DRIVE 1 
READY ? 還 





OK な ら と キー を た だ だい てく 〈 く だ きる い 。 す る と フォ ー マ ッ テ 
ィング 作業 が 開始 きれ 、 し ば らく 〈《 し て 画面 は 次 の よう に な り ま す 。 


DISK FORKMATTING COMPLETED !! 
XXX DISK BASIC SYSTEM CUPY ※※※ 
MHAT_ DESTINATION DISK DRIVE(0-3)7 還 





と 聞い て きま す 。 私 た ち は 1 
半 ド ラオ グ の ディ イク に ョ g ぜ ー し ます の で 合 と キー イン し ます 。 
する と 次 の よう に 
と 問い か け て 
各 ま すす 。 


SET 「HE SYSTEM DISK ON _ DRIVE 0 
SEI IHE UESTIINATION DISK ON DRIVE 1 
READY? 較 
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と キー イン する と 、 次 の よう な 表示 が で て コピ ー 終 了 で す 。 


RSIENI DUE GUPY CUNIEEEIEU 


Read ッ 
語 








最後 に DSKINI (ディ スク イニ シャ ライ ズ ) コマ ンド を 実行 し DSKINI 
ます 。 次 の よう に 夫 一 イシ し 鶴 《 だ る 


DSKINI 1 


ドラ イブ 1 の ディ スク の ディ レク トリ を 初期 化す る と いう こと で す 。 ディ レク トリ 
ディ レク トリ と は 「 フ ァイル を 管理 する ファ イル 原簿 」 の よう な も の 

で す 。 リ ター ン キ ー を 押す と 「Are you sure (Y or N) ? 」 の 確認 メッ セ 

ー ジ が 表示 きれ ます か ら り ら OK なら 「Y」 や を キー イン し で で だ きい 。 


これ て 、 和 新しい デイ メグ ク 人 フォ テマ タク オイ アダ 、 プ イペ タグ ば ー『 の 
ビー が 浴 了 し まき し た の て 、 の 新しい ディ スク は 「 シ スム ディ ス 
ク 」 と な ひま し た 。 と 天 の の ナイル ダ で か か がら 、 マ の デイ 衝 に よ 
C て デイ スク シス チム 杉 明 動き させ る てこ: が て きま す 。 

この 「 新 し ぃ シス テム デイ スグ 」 は 。 まだ だ イィ スク み クロー ドド を ュー 
し だ た だけ で すか がら 、 オ リ ジ ナ ル の 「 シ ステ ム デ ルス メグ に 書き 込ま され 
で いる ユー テリ オリ テ ォ グロ グラ ム ひ と か が 夫 シ スト ルアー ジョ ツゲ ログ ッ み 
は コ セ ー き 衝 て いまや ん 。 

次 の よう い 近 mw イル W 開 や か ル し よ 96 


し だ 入 (OU 


次 の よう な 画面 に が り ま し だ ね 。 


ファ イル 名 な し 





ファ イル 名 は 1 つも 表示 きれ ませ ん ね 。 
そし て 「152 ク ラス タ 」 が 私 だ も が 使 うこ と が で きる 容量 て ず 。 


新しい シス テム ディ スク で 立ち 上 げ る 


と それ で 似 。 こ の 親しい イス ク て ジス チム を 赴 動 きせ る さこ 上 がき 
る か どう が か が チ スト ド ML し て あま も ょ り 。 
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次 の 手順 で 行っ て 《 だ きい 。 


仙 ドラ イブ 0、 ド ライ プ 1 か ら デ ィ ス ク を 取り 出し ます 。 
⑳ 「 新 し い シ ステ ム デ ィ ス ク 」 を 「 ド ライ ブ プ 0」 に セッ ト し ます 。 
| ⑯ 本 体 前 面 の リセ ッ ト ボ タン を 押し ます 。 


これ か ら 先 は 1・2 節 で 説明 し た 手順 と 同じ で す 。12 ペ ー ジ の よう な 
オー プ ニ ン グ メ ッ セ ー ジ が 表示 る すし た は 机 い さ : 


ファ イル を すべ て コピ ー す る 


さて 、 新 し い デ ィ ス ク を 購入 し て 容量 を 最大 限 に 使い た いと いう 場 
合 に 棒 、 ブ デリ ルス グラ ユー ド の キビ m ま て て 秩 り た だ し て よい めで て す が 、 ボ キ 
リ ジ ナ ル の シス テム ディ スグ と まっ た 〈《 同じ 内 容 の ディ スク を も う 1 
② 作 っ る 沈 お きた いも の で 洲 。 
それ で は 作業 を 始め ます が 、 こ れ は 「VOLCOPY」 と いう ユー 
ケイ リナ チ ィ イグ 蛋 あめ が 家 衝 すず る こ E に よっ て 行ない ます 。 
| ディ スク は 立ち 上 げ て あり ます ね ? 
| を うし だ 5、 オ リ ジ ナ ル の シス テム ディ スク を ドラ イプ 0 に 、 デ ィ 
| スク コー ド だ け を コピ ー し た 新しい ディ スク を ドラ イプ 1 に セッ ト し 
| て くだ さい 。 さあ 、 光 の 順序 で 作業 開始 で す 。 
[ 「VOLCOPY」 を RUN き させ て くだ さい 。 








RUN VOLCOPY "レレ 


州 する と 画面 に 次 の メッ モー ジ が 表示 きれ ます 。 








川上 「『「 ソ ー ス ディ スク ( 元 に な る ディ スク ) が セッ ト し て ある ドラ イプ 
川 は 何 番 で すか 」 と だ た ず ね て いま す 。 

| 和 だ ちば は ドラ イブ 0 に セッ ト し て ある の で と キー イン し ま 
上 す 。 す る と 次 に 「 デ ステ ィ ネ ーション ディ スク (コピ ー 先 の ディ スク ) 
の セッ ト し て ある ドラ イブ 番号 」 を だ ず ね て きま す 。 














私 ね は ドラ イブ 1 に ゼタ NE で の 9 ます の で 、 人 |) を 2 の 
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する と 今度 は 次 の 画面 表示 と な り ま す 。 


SET 「HE SOURCE DISK ON DRIVE 0 


SE「 「HE DESTINATION DISK ON DRIVE 1 
REAUY7 還 





Mk 品 人 で まま 。( 槍 か ち 條 まで 公 
セッ ト ず み で すか ら 確 認 の 意味 と 考え ん えれ ば よい で し ょ う 。 
「 | 半 イプ し まし 1 う 。 


これ か らい よい よ フ ァイル の コピ ビ ピー で す 。 画面 に は 次 の よう に 表示 
る され ます 。 





これ は どう いう こと か と いい ます と 、 音 楽 の レコ ー ド 毅 を 思い 肖 か 
べ て くだ る さい 。 幾重 も の 輪 で 構成 きれ て いま すね 。 デ ィ ス ク も 同じ よ 
うに な っ 定 ゆで 学 看 衝 人 が か 6 トド トラック 0。 トク タック) な の よ 
う に 番号 が つけ られ てい ます 。 つま り 、 上 の 画 春 は タビー る れ て いる 
トラ ッ ク 番 号 が 表示 る れ て いる の で す 。 

意味 が まく わか 65 な い 方 は その まま に し て 先 へ 進ん で て 《 だ きい 。 

この よう ロト ウッ ク ぐ ごと に ロビ 二 古 笠 MNNMNNU す ずる と 次 の りょう な 画 
画 に な り ま を まず ず 。 


に 1 0 記 王 に 1 上 C7( 
Co ルレ 
CUPY FINISHED! 


CUNTINUE VOLUME CUPY(Y/N)? 軒 





だ 7 だ 9 向き ます 
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まり 衝 が か の 贅 ルス メグ に シス テム ディ イメ クタ の 中 の ファ イル を ュ コピ 
ー す る 作業 を 続け ます か 、 と 聞い て いる の で す 。 私 た ち は こ れ で 終 , り 
に し ます の で 則 ポジ Lt だ きい 。「N」 人 は 「NO」 の 顕 
文字 で す 。 


てく すべ で や の 他 症 赴 共 まし た 。 [ 

で は 、 新 し い デ ィ ス ク に ファ イル が コピ ビー きれ て いる か どう か 調べ 
ty ま 洛 も 仁 " ヴ ウッ 

まず 、「 ド ライ ブ グ 0 」 側 の シス テム ディ スク を も う 一 度 画 面 に 表示 
し て みか ま も さす ⑨ ひ の 世 の ま よう に 笠 ー イ ン ず 私 ば さか っ た で すね 。 


bh 上 9 の 


13 ペ ー ジ の 場合 と 同じ よう に 、 い ろ い ろ な ファ イル 名 が 表示 きれ ま 
し 妨 胃 。 

て は 次 に 、「 ド ライ ジグ 1 」 側 の ディ スク の 内 容 を 表示 きせ て み ま し 
は う 。 今度 は 次 の よう に キー イン し て くだ る きい 。 


ME 1 


導 際 0800090 似 涼 究 は 補 いて は 「F ILES」 で よかっ た の で ず 
が ドラ イプ 1 側 の ディ スク の 場合 は さら に その うし ろ に 「?1 :?) 
を つけ 加え ます 。 

SNCN の て すり が 7 ドウ ツイ ル ダ 0 の シメ チチ &A デ カル スタ よ 上 ま うた て 同 
じ 内 容 が 表示 る れ だ た と 思い ます 。 


これ で 本 節 は 終り で す が 、「 オ リ ジ ナ ル の シス テム ディ スク 」 は 大 
功 に 保管 し て お いて くだ きい 。 

次 に 2 枚 目 の 「 未 使用 の ディ スク 」 を 用 意 し 、「 ユ ピー 版 の シス テ 
ム デ ィ ス ク 」 を 使っ て 「 デ ィ ス クコ ー ド の ュ ユ ュ ピ ー」 を 行い (19 一 21 ペ 
ー ジ の 操作 )、 こ の 新しい ディ スク に 対し て 5・3 節 の 操作 を 実行 し て 
くだ さい 。 本書 で は 、 こ の ディ スク を 「 ド ライ ブ 0」 に セッ ト し て 使 
ye で 0 と 

少々 混乱 し を う で す が 、 整 理 す る と 次 の よう に な り ま す 。 


オリ ジ ナ ル の シス テム ディ スク ーー 保管 する 

コピ ー 版 の シス テム ディ スク 一 一 保管 する 

5・3 節 を 実行 し て 作っ た シス テム ディ スク ーー ドラ イブ 0 に セッ 
ト す る | 

《 未 使用 の ディ スク ーー 次 章 で 使い ます 


1・B プロ グラ ム の セー ブ 


る で て 決 池 。 の ダグ 移 ム の セー ダバ す 。 

15 ペ ー ジ を ご らん く 〈 だ さい 。 フ ァイル の 記録 形式 に は 2 通り あり ま 
す 。1 つが アス キー 形式 、 も う 1 つ は バイ ナリ 形式 ( 非 ア スキ ー 形 式 ) 
間 5 

この 2 つの 記録 形式 は セー ブ 方 法 に よっ て 区 別 き され ま す が 、 前 に も 
説明 し だ た よう に 「 ア スキ ー 形 式 」 は 「 プ ログ ラム の 1 字 1 字 を その ま 
ま の 形 で ディ スク に 書き 込み 」、「 バ イナ リ 形 式 」 は 「 圧 縮 し た 形 で 書 
る 和み 」 全 。 

この 館 で 信和 放 あ も も チ ス る ob みかみ 状 た だ に しま し いり サ 。 


サン プル プロ グラ ム の 入力 

で は 、「 プ ログ ラム の セー グ 」 る や 近 碧 する だ ゆめ の サン デル ブロ グラ 
ム 多 キー イシ ル し もし ましょ ゅ ょ う 。 

すでに 何 か が プロ グラ ム が 入力 し て ある 方 は 、NEW コ マン ド で メモ 
リ を ク グリ アル て か ら 太 暫し も て て (だ 生 We 

また 、 前 ペー ジ で 作っ た 乾 の が ドラ イブ 0 に セッ 
ト し て ある こも と を 確認 し て くだ ⑧ い 5 

プログ ぬ みや 次 に ボボ し いま すず 。 


demon ら = 七 ビ 上 a 七 1On PCOGFa8m 
| ! | 」 
ー!- 【」- 坦 較 還 Io 【-】 Te】 っ 】 go【o 


MIUIH 40.25 : CUNSULE 0,25。0,0 
じ LS ] 


LINE (10。10)-(630 ,120 ) ,PSET,6,B 
LINE (150,30)-(420,60 ) ,PSET ,6,B 
PAINT (50,.15),.5,6 


LOCATE 13,5 : COLOR 4 
ERINEL ML77 の ロ 2 2300 





END 
別に 深い 意味 の ある プロ グラ ム で は あり ませ ん 。 て 画面 
に 長方形 を 2 つ 描 き 、 で その 一 部 を 塗り つぶ し 、 窓 に な 
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1 語音 ず る だ に だけ て す 。 


バイ ナリ 形式 の セー ブ 


炊 きま あし わき 

火 衝 で きだ た 島 、 い よい 間 と の ガロ グ クム の 他 サ ググ で す 。 

プロ グラ ム を ディ スク に 書き 込む に は 「SAVE (セー プ ブ ) コマ ン 
Fi を 使 人 ます の 。 村人 は 火 の なり で す 。 


ら GAVE “ファ イル ディ スク リブ プ ブタ" 


この 書式 に 準じ て 行なう 記録 方 法 が 「 バ イナ リ 形 式 」 で す 。 
プログ ラム 名 は 仮り に 「demoprog」 と し て お きま し ょ う 。 
人 所 よう 入間 プ シ ル し まり ょ う 。 


SAVE “0zdemoprog 


< 注 > 「SAVE」 は 大 文字 で も 小文字 で も か まい ませ ん が 、 フ ァイル 名 
は 小文字 に し て くだ る きい 。 
リタ ー ン キー を 押す と アク セス 表示 用 LED が 赤く 点灯 し 、 ま も な 
〈 「Ready」 が 表示 きれ て セー ブ が 終了 し ます 。 


SAVE “0zdemoproo 


Read ッ 





て は 、 実 際 に セー ブ プ き れ だ た か どう か が チェック し て み ま し ょ う 。 
EE よし 区 る コマ ンド を 便 ん ば よい で すね 、 


demoprog UBS 1 


1 3 し lu5teF= Free 


Kead ッ 
し 





上 の 画面 は 、 表 示さ る され だ た ファ イル 名 の 一 番 下 の 行 だ け を 示し て あり 
洛 ず 。 
画面 を 見 る と サン プル プログラム が 確か に セー ブ き され て いま すね 。 
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を し て 、 私 た ち が 使 うこ と の で きる 残り の 容量 は 1399 ク ラス タ で す 。 
次 を ご らん 〈 だ きい 。 





demOprO 嘱 





| クラ スタ 使用 





シー ケン シャ ルフ ァイル 








ーー バイ ナリ 形式 


ベー シッ ク プ ブロ グラ ム 





確か に バイ ナリ 形式 で セー プ る れ て いま すね 。 


アス キー 形式 の セー ブ 


それ で は 次 に 、 ま っ た く 〈 く 同じ プロ グラ ム を アス キー 形式 で モー ブレ し アス キー 形式 
て み ま 肖 移 
アス キー セー ブ の 書式 は 次 の と お り で す 。 


SAVE "ファ イル ディ スク リプ タ "。 A 


バイ ナリ 形式 と 異な る 点 は 、 う し ろ に 「。 A」 が 追加 され だ た こと で 
す 。 FA」 栓 天災 学 で も 小 双 字 て 6 が まま あ 全 ん 。 

この よう に アス キー セー プ の 場合 、 う し ろ に 「A」 を つけ る こと か 

ら 「A オ プシ ョ ン 付 セー プ 」 と も いい ます 。 A オ プシ ョ ン 付 き 
で は きっ そく テス ト し て み ま し ょ う 。 次 の よう に キー イン し ます 。 Lo 


SAVE "0zdemoprog ぁ 全 ご 「 


ファ イル ディ スク リプ タ の 「『「0 :」 は 省略 し て も が か が まい ませ ん 。 リタ 
ー ン キー を 押す と 、 次 の よう な 確認 メッ セー ジ が 表示 る れ ま す 。 





ある プロ グラ ム は 初め ゆめ て ディ スク ロゼ mー ダ る と as ほこ の メッ キー 


ジ は 表示 きれ ませ ん が 、 プ ログ ラム を 修正 し た り し て も う 一 度 セ ー ブ 
し な な そう と する と 表示 され ます 。 「 

これ は どう いう こと がい いま きす 『、 た 上 ん ば 「P」 と いび が 前 の 
プロ が ラペ が の で の 20 で も m プ まで いた も らし あの 。 で し で 、 
この 「 記 と いう プロ グラ ム を 考 邊 し し て 、 同 じ フ ァイル 名 て 玲 で 
し た と する と 、 修 正 前 の プロ グラ ム は 消 き れ て 修正 後 の 新しい プ ブログ 
ラム が 上 書き る れ ま す 。 
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「 修 正 前 の プロ グラ ム も 残し て な むく の だ っ た 」 と 後悔 きれ る こと も 
多々 あり ます 。 

この よう な 事故 を 防ぐ た め に も ワン クッ ショ ン お いて 、 メ ッ セ ー ジ 
を 表示 し て 確認 を うな が し て いる の で す 。 


私 だ ち は 現 在 は この 心配 は あり ませ ん か ら 、 大 廊 字 で も 小文字 で も 
いい で すか ら 「Y」 や 入力 し ましょ う 。 
する と 、 カ チッ と 音 が し て 間もなく セー ブ が 終了 し ます 。 


SAVE "0zdemoprog " ,A 
Are you sure(Y or N)? Y 


Read ッ 
漆 





で 欄 骨 WE ULES ラ コマ ンド で ファ テイ ル 名 を 表示 きせ て み 穴 くだ る 
M 


demoprog 0A5S 1 


139 Clusters Frees 


Read ッ 
敵 





いか が で すか 7? 
今度 は 先ほど の の と さろ が 作 要 介し で いま すね 。 つま 
り 、 無 事 に アス キー 形式 で モー プ き され だ た の で す 。 


これ で プロ グラ ム の セー ブ は 終わ り で す 。 

それ は そう と 、 サ ンプ ルプ ログ ラム は 正常 に 動作 し ます か ? 

くち サザ サン グル だ と は いた 、 うま ( 乾き る かとう かみ プス ト し で いて 
くだ 二 M5。 
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1]・7 プロ グラ ム の 連結 


2 つの 相 異 な る プロ グラ ム を つなげ で 1 〇 の プロ グダグダ あ み ふ に する こと 
が で きだ ら 、 ず いぶ ん 便利 だ % 思 いま せん か 7? 
だ た も を た ば メイ エー オメ を 大 用 し 。 ぜ せ プ ルー ナン は すでに ディ オイ スネ スグ 
に セー ブ き され て いる 別 の プロ グラ ム の それ を 利用 する こと に し て 、 こ 
の すずの を WW 寺 ジグ セル で つま と ゆあ と を も WC きだ ら 、 7 い の が 化 失 
間 を は ぶ く こ と が で きま す 。 
この 作業 も や っ て くれ る の が MERGE (マー ジ ) コマ ンド で す 。 MERGE 





サブ ルー チン の 入力 (2 


で は 、 前 節 で 作っ た サンプ ルプ ログ ラム に 新しく サブ ルー チン を つ 行 に 「**」 が あり ます が 、 
な ゆあ 導 だ 05 し あま 移 。 これ は ダブ ルク ォ ー テ ー シ 
M 6 年 ョ ン を 2 つ 続 け て キー イン 

前 館 の ダダ タム が まだ え や りす 上 に ある 方 は 、NEW コ マン ド で ク 、」 て / た さい 箇 に スネ メニ 
リア し で が か が ら 次 の 立 ブ ルー チン を 入力 も て 《 だ きい 。 ス を 入れ て は いけ ませ ん 


Z00 GOUSUB 1000 

2Z10 END 

1000 

1010 

1020 CULOR 4 | 
1030 MHILE ="“ 


1040 1 も =INKEY 和 も 

1050 TITLE ま =MTID ま (TITLE も ,2)+LEFT ま (TITLE ま , 1 ) 
1060 FUR 上 =1 TO 100 : NEXT 1 

1070 LOUCATE 13,.5 : PRINT TITLE ま 

1080 MEND 

1020 KRETURN 





キー イン が 終わ り ま し だ ら 、「mrg」 と いう ファ イル 名 で アス キー 
セー プ し で 糧 き い 。 パイ すず リ 形 区 で 全 承 のみ 0 サメ 。 


SAVE "mrg"。A ジ 





セー ブ で きた ら 、 前 節 の プロ グラ ム を ロー ド し て くだ さい 。 





LOAD "demoprog" ワ 


これ で 、 この 節 で 作っ た サブ ルー チン は アス キー 形式 で ディ スク に 
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セー プ さ れ 、 本 体 の メモ リ 上 に は 前 節 で 作っ た メイ ン 部 分 が ロー ド さ 
れ だ 人 が り せ 人 す 。 

ル ゆ 人 コマ ンド で 確認 し て みて 《 だ さい 。 

6 は N いま メモ リ 上 に ロサ ド き れれ た だ メイン 部 分 に に デオ スグ か ら サ 
アル ー チ ッ ン を 呼び だ し て 1 つじ まり ょ 導 て みあ み ば し ポ う 。 

ここ で MERGE コ マン ド を 使う こと に な り ま す が 、 書 式 は 次 の と 
りり で て す 。 


MEHGE “ファ イル ディ スク リブ タ " 


マー ジ に 移る 前 に 1 つ 注 意 が あり ます 上 

20< ペ ーー ジ も て 29 ページ の クダ グラ ム や 見比べ て 《 だ きい 。 ど ちら に ゃ る 
200 行 、210 行 と いう 行 番号 が あり ます ね 。 

私 た ち は 、25 ペ ー ジ の メイ ンプ ログ ラム に 29 ペ ー ジ の サブ ルー チン 
を マー ジ す る わけ で す が 、 こ の 場合 、 重 複 する 行 番号 が ある と 、 マ ー 
ジ す る ほう の ステ ー ト メン ト が 優先 され ます 。 

つま りこ の 場合 、 メ イン プロ グラ ム の 200 行 、210 行 は す サブ ルー チン 
側 の 200 行 、210 行 で 置き 換え られ ます 。 

て は 実際 に や っ て み ま し ょ う 。 次 の ゆ ょ うに キー イン し て (だ きい 。 


MERGE "mrg” ワ 


や が て 「Ready」 が 表示 る され て マー ジ 終 了 で す 。 

LT ST コマ ンド で プロ グラ ムリ スト を 画 画 に 表示 きせ て みて 〈 く だ 
S い 。 う まく 連 還 する ひと が て きだ で て し AN 

よ 《 見 る と 220 行 の END 文 が 1 つ 多 い の で 、 こ の 行 を 削除 し て お き 
40 まり 人 に 


Z20 ウ 


で 幅 、 キー イプ ログ ラム を 実行 し も あみ G 《 だ 8 い 。 

「FM 一 7 プロ グラ ミン グ 」 と いう 見 出し が 電光 掲示 板 の よ うに 
クル クル まわ っ て いま す 。 

と の キー で も いい で すか が ら 押 し て くだ さい 。 処理 が 終了 し ます 。 


さあ そ れ で は 、 こ の プロ グラ ム を セー ブ し て マー ジ を 終わ り に し ま 
の あ 拓 2 


SAVE "demoprog′" ジワ 
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い im 意 
]・B プロ グラ ム の 削除 
ディ メス を 使っ て いる ょ フラ ァイル も だ ん だ ん よん えん てき て 、 な が に は 
不 必要 な ファ イル も で て きま す 。 
を ん な と き に 登場 する の が 「K1ILL (キル ) コマ ンド 」 で す 。 
書式 は 次 の と お り で す 。 


KILL "ファ イル ディ スク リブ タダ " 


この コマ シド は ダイ ツモ 一 ド て も を 世 ログ や る る 一 下 で す 使 うさ 
と が で きま す が 、 ダ イレ クト モー ド の 場合 に は 、 本 当 に KILL ( 削 
除 ) し て よい の か と どう か 確認 メッ セージ が 表示 る れ ま す 。 

で は きつ の を ん テス ト ま も で み ま り ゆり が, 傘 ほ 0 マ ジン 用 セー エグ し ん な ア 
ログ ラム NNC 有 いあ 肌 陸 光る さく と に し まず の 。 科 だ は 、 メ イン ダグ ログ 
ラム 、 示 ゲル エキ ナン を 宮 富 ど UGCG ド の つの し あし だ た のど 、) mng』 は 必 
妥 な <〈 罰 朋 届 だ 。 

よ まず 更 避 LES 寺 マン ドイ mrgn、 が イス クセ ー ジ き 衝 て いる 
こと を る ね サー 農 槍 認 し て 《 だ きい 。 


ココ NMU 


間 題 M| 肌 前 
MIUEPT 
こも 信 っ 1 ト o】 
VULCUPY 
UTUUTY 
EEE 

F し UPY 
FCUPYN 
FCUPYEB 
Te 【-】iLe] afolsc | 
山 麗 = 


の 
ノ 
間 
U 
U 
U 
U 
U 
ノ 
U 
の 


ち の の の の の DD の の の 
の の の の の の の の の の の 
は に は OOID ビ ビビ ビ ビビ ロビ 


RE の 02 カリ レ 
138 じ ClusterS Free 


Read ッ 
本 
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確か に セー ブ さ る され て いま すね 。 
を 交 て ば 決 の よ まう に キー イン し で 〈《 だ きい 。 


KILL “0zmrg" 


する と 、 溢 の よう に 確認 メッ セージ が 表示 きれ ます 。 


re you suretY or N)? 





大 文字 で も 小文字 で も か まい ませ ん か ら 「Y」 を キー イン し て くだ 
る きい 。 す で に 「Ready」 が 表示 され て 削除 終了 で す 。 

本 当 に KT し EL き 8 れ た だ か ぼう か 、FTLES ユ コマ ンド で 確認 し て み 
秋 紀 ま う 。 


に ま MEO 0 


DFNMCD 
MIBIGA 4 

っ Y っ DSK 
VULCUPY 
al9MHBIB 有 4 
PFUEF 
が RW 
FEORYM 
FCUPYEB 


e【=】II【e】 >】 aro【c| 


し Gb 計 、39 朗 Ge 放 Gp 剖 Cm 放 ep 四 Geo 抽 ep 当 3 還る | 
の の の の の の の の 
の の の の の の の の の の 
テ は の ビ ビ ロ 己 ビビ ビビ 


コ 削除 され て いる 
1 3 ワ 9 し 1u5t 上 erS Free 


Read ッ 
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どう て す が か が 7 人 確か に IRMWeI が が 滑 えん て いま すわ 。 

この 「mrg」 に は 1 クタ ラス 人 本 想い まし が が 6、 四 ま 上 上 する こと 
を 届 よ の 江 ア リーグ クサ 素 ( 隊 0000 が らら UI199」 に ビ コ ク ウス 欠 だ け ふ 
えた や で も ゆ 表 すず 。 

党 あ 、 まま べ て の プティ オル 交 肖 際 し 入 い 上 き は DSK1NI コマンド 
を 使い ます が 、 全 部 消 る きれ て し まい ます か ら 注 意 し て くだ きい 。 








1 ファ イル 名 の 人 変更 


ある ク テ イ ル 名 で プロ グラ ム を セー ブ し だ た の は いい が 、 あと で 考え ぇ 
る と あま り 気 に 入ら な い 、 と いう ケー ス も 生ずる と 思い ます 。 

私 だ た ち が こ れ ま で 学ん だ 命令 だけ で ファ イル 名 を 変更 し ょ うと 思う 
と 、 こ ん な 手順 を ふま な けれ ば な り ま せん 。 だ た と えば ファ イル 名 P を 
Q に 変更 する 場合 を 考え て み ま す 。 





⑳ プロ グラ ム 「P」 を ロー ド す る 

⑳ ロー ド し た プロ グラ ム を 「Q」 と いう ファ イル 名 で セー プ す る 
⑳ KI し し コマ ンド で 「P」 を 削除 する 

こ 衝 で 。 【 更 たい 信 アゲ イル 名 や に 義 時 まま の 9 くん の が て きき 
し た が 、。 あ よろ と めん ぼう で て で す 人 放さ きれ) が や 名 殖 人 て し まう 
コマ ンド が あり ます 。 NAME (ネー ム ) コマ ンド で す 。 
書式 は 次 の と お り で す 。 


NAME 


NAME “" 旧 フ ァイル ディ スク リブ タ " AS " 新 フ ァイル ディ スク リプ ブタ" 





「 古 い フ ァイル を 新しい ファ イル と し て ネー ミン グ す る 」 と いう こ 
と に 問 間 東 ま 。 

で は 実践 し て み ま し ょ う 。「demoprog」 を 「testprog」 と いう ファ 
イル 名 だ 究 記 し で あぁ ま しょう 。 い が 本 人 人 用 イ 0 に キー ブ し て あり 
ます か ら 、 フ ァイル ディ スク リプ タ の ドラ イブ 番号 は 省略 し ます 。 


次 の よう に キー イシ し や て 《( だ きい 。 


NAME "demoprog′ AS "testprog′ ピ 





それ で は FILES ュ コマ ャ ンド で 確認 し て や 導 ま し ょ 」 う 。 





新しい ァイル 名 に の け か えら 由 ま し だ た 。 
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1]・10 デモ ブロ グラ ム の 実行 


ささ で 、 本 導 を 燈 お を に 当たっ で 』 ろ と 選 下 きま し も ょ う 。 

シス テム ディ スグ に 大 っ て いる 語 主 通 の デモ ンス トレ ー シ ョ シ ブロ 
グラ ム を 楽し ん で み ま る る 

シス テム ディ スク の 中 の 「DEMO」 と いう プログ ラム を 実行 すれ 
よい の で すず 。 「 

24 ペ ー ジ に 述べ だ 9 の 「 コ ピー 版 シ ステ ム デ ィ ス ク 」 を ドラ イブ 0 
に * し YY (電導 吉 

次 の よう に 持 一 用 も ます 。 





RUN “DEMO0" 





る あ 、 実 帯 ツ スト と ーション が 始ま り ま し た 。 い か が て すか 7? 

の ウロ クチ 人 6 は エッ ドレ ス に ぶっ で いま すか ら 、 終 わり に し だい 
と き は 本 体 前 面 の RE SET ボ タン を 押し て くだ きい 。 ディス ク 起 動 
状態 に 戻り ます 。 
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プロ グラ ム フ ァ イル 
デー タフ ァイル 








<《 洋 >FILES コ マン ド で 
シス テム ディ スク に セー プ ブ 
され て いる ファ イル 名 を 画 
面 に 表示 する と 、 プ ログ ラ 
ム フ ァ イル も 形式 は 「S」、 
すなわち 「 シ ー ケ ン シ ャ ル 
江 0 紅 な っ ら そ で そい ます 
が 、 本 書 で の 「 シ ー ケ ン シ 
ャ ルフ ァイル 」 と いう 呼び 
方 は 「 デ ー タ ファ イル 」 に 
上 売 する こと に し ます 。 
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本 > の 


ー タ ファ イル に つい て 





情報 の 集合 体 の こと を デー タフ ァイル と いい ます が 、 こ れ は を その 人 性 
質 に よっ て 決 の よう に わけ る こ ょ が が で きま す 。 





と の て 学 吾 ず 和 あの は パー タプ テル ル の うち の シー ケン シン シャル アア 
イル の ほう で す が 、 違 い を は っ きり る せる ため に 、 ラ ンダ ム フ ァ イル 
に つい て も 簡単 に れ て お きま す 。 

を の 前 に 、 フ ァイル に は デー タフ ァイル の ほか に プロ グラ ム フ ァ イ 
ル も あり ます が 、 を その 違い は も うお わか り で すね ? 

を そう で す 、BASIC プ ログ ラム な ど を ディ スク に セー プ し た 場合 
に プロ グラ ム フ ァ イル 、 電 話 番号 ・ 住 所 ・ 氏 名 ほ と い っ だ デー タ を ディ 
スク に 書き 込ん だ 場合 に を の 集まり を デー タフ ァイル と いい ます 。 

ジー ケン シャ ルフ ァイル も ラン ダム ファ イル も 同じ デー タフ テイル 
な の で す が 、 デ ィ ス ク に 書き 込ま れる 状態 が 違い ます 。 

「 シ ー ケ ン シ ャ ル 」 と いう の は 「 連 続 的 な 」 と いう 意味 で す ランダム 」 
も の の は 直訳 すれ ば 「 デ タラ ルナ 」 も いう みき 上 て すず が 、 デタラメ ょ 
いう より は 「 連 続 的 で は な い 」 く らい に 理解 し て ぢ お い だ ほ う が よ いよ 
うま 。 


ジ シー ケン シャ ルフ ァイル と は 


シー ケン シャ ルフ ァイル と は 、 デ ィ ス ク に 1 番目 の デー タ か ら 連 続 
的 に 書き 込ま れ だ た ファ イル の こと で 、 こ れ を ディ スク か 6 ら 読み 出 そ う 
と する と き に 、 書 き 込 まれ た 順序 で し か 読み 出せ ませ ん 。 

た と えば 電話 帳 の ファ イル を シー ケン シャ ル で 作っ た 場合 、 夏 目 き 
ん と いう 人 の 電話 番号 を 知り だ た く て も 、 も し 50 音 順に 書き 込ま れ て い 
れ ば 、 安 藤 さ ん 、 伊 藤 き ん …… と 、 夏 目 き ん の 前 に 登録 し て ある 人 の 
デー タ を 読み 出し て いか な けれ ば な り ま せん 。 

あな だ た は 、 カ セッ ト テ ー プ を 使っ て ファ イル を 作り まし だ た か? あ 
れん が シー ケン シャ ル ラ ゲイ オイル で 更 。 

シー ケン シャ ルフ ァイル の 特徴 を まとめ る と 次 の と お り で す 。 





⑳ デー タ を ロー ド ・ セ ー プ する 場合 、 必 ず フ ァイル の 先頭 か ら 順 次 
行い ます 。 上 

⑯⑳ ファ イル 内 の 一 部 だ け を 書き 換え る こと が で きま せん 。 

⑯ ファ イル を 変更 びき る の は 、 フ ァイル の 最後 に 新しい デー タ を 追 
加 あ と 7 がけ 写 ず 。 

⑳ プロ グラ ム 面 、 あ る い は ファ イル 設計 の 面 か ら 見 て も 、 ラ ンダ ム 
ファ イル に 比較 し て 筒 単 で す 。 

⑥ 先ほど と の 電話 帳 の 例 で いい ます と 、 夏 目 さ ん の 電話 番号 ・ 住 所 ・ 
氏名 を 1 レコード (この レコ ー ド の 集まり が ファ イル で す ) と 呼び 
ます が 、 こ の 大 きる は 255 文 字 以 内 で し た ら 自 由 に 変え られ ます 。 


意味 が あま り わ か ら な い 人 も いる か も し れ ま せん が 、「 ラ ンダ ム フ ァ 
イル より 扱い が 科 単 だ ど 」 く らい に 考え て いた だ た だき 読 み 進 ん で くだ さい 。 
あと で 実際 に プロ グラ ム を 組ん で みれ ば わか る と 思い ます し 、 を その と 
さき に 大 な で を な う 王府 読み な あし もやい が ただ いや も けら る こう で すず 。 


ラン ダム ファ イル と は 


次 に ラン ダム ファ イル で す が 、 や は り 電 話 帳 の 例 に そっ て お 話し し 
8 


電話 帳 フ ァイル を ラン ダム ファ イル と し て ディ イス ク 上 に 作っ た 場合 、 


だ た と えば 夏目 きん に か か わる デー タ を 知り だ た いと き 、 ほ か の 関係 な い 
デー タ ま で 読み 出す 必要 は な 〈 く 、 直 接 に 取り 出す こと が で きま す 。 し 
だ た が っ て 、 時 間 的 な ロス も な く 〈 大 変 効率 的 で す 。 

ラン ダム ファ イル の 特徴 も 列挙 し て お きま し ょ 2 う 。 


⑳ ファ イル 内 の 各 レ コード を 任意 に 読み 書き で きま す の で 、 処 理 時 
間 を 短縮 びき ます 。 
ファ イル 内 の 一 部 の デー タ だ け を 書き 換え る こと が で きま す 。 
デー タ の 追加 も 自由 で す 。 
シー ケン シャ ルク テイ ル に 比 さ て ゲロ グラ ム が 被 術 に な り ま す 。 
1 つ 1 つの レコ ュー ド の 大 き さ る は 256 バイ ト 以 内 の 一 定 バ イト 数 に 
固定 され て いま す 。 


シー ケン ジャ ル 、 ジン ダム と も 、 あ まり よ ( 紳 評 で て できない 方 も いる 
か も し が ませ ん が 、 実相 し て いん うち に の みて こめ て 《 る と 上 思い ます の 
で 、 安 心して 先 へ お 進み くだ きい 。 


レコ ヨード 


ラン ダム ファ イル 
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「 ブ 








・' 選 ディ スク の 構造 





トラ ッ ク 数 


セク タ 数 


セク タ 長 


み ラ スタ 


この 節 で は 、「3.5 イ ンチ マイ クロ フロ ッ ピ ィ デ ィ ス ク 」 の 構造 に 
に つい て 説明 し ます が 、 ま だ 実際 に プロ グラ ム に よる ファ イル 操作 を 
て いま せん の で 少し わが ゆめ に 《 い か も し れ ま せん 。 

と くに 、 デ ィ ス ク の 構造 が だ ぼう な っ て いる か と いう こと は 、 プ n 計 較 
ラミ ング する 上 で あま り 大 切 で は あり ませ ん 。 で すか ら 、 ち ょ っ 納 還 
ま ど い を 感じ る 人 は 、 こ の 節 を と ば し て 次 へ 進ん で いた だ いて も か まき 
いま 翌 ん 。 ' 

まず 「 デ ィ ス ク 」 ゆ 図 を や 有 ペ ベー ジ に 示し ます の て 、 こ れ を 見 な が 四 
お 読み くだ さい 。 

「3. 5 イン チマ イク ロフ ロッ ピ ィ ディ スク 」 と は 、 「3.5 イ ンチ 両面 
倍 密度 ディ スク 」 と も 呼ば れ 、 中 に 入っ て いる 円 盤 状 の 磁性 体 の 直径 
が 「3.5 イ ンチ 」 で 、「 両 面 』」 つ まり 「 表 面 」 と 「 裏 面 」 の 密度 が 借 の 
ディ スク と いう こと で す 。 有 図 の 1 つの セク タ の 記憶 容量 が 256 バイ 
ト の も の を 倍 密 度 、128 バ イト の も の を 上 単 密度 と いい ます 。 

図 を 見 る よわ か る よう いい 「 デ アク が セク クト N 「 ド ラッ ジ ク 9 還 
ド (これ は 表 か 裏 か と いう こと で 、 表 を サイ ド 0、 裏 を サイ ド 1 とい 
いま す ) で 構成 され 、 そ の 仕様 は 次 の よう に な っ て いま す 。 


⑯⑳ トラ ッ ク 数 一 一 片面 あたり トラ ッ ク 0 一 39 の 40 ト ラッ ク が あり 、 
表裏 が ある の で 総 ト ラ ッ ク 数 は 80 に な り ま す 。 





- ゆ セク タ 数 1 つの トラ ッ ク あ た り セ クタ 1 一 16 の 16 セ クタ 四 
が あり 、 片 面 の 総 セ クタ 数 は 16X40 三 640 モ ク 』 
タ 、 し だ が っ て 両面 で は 640 X 2 =1280 セ クタ 
な < 半 ME NN まま 。 | 
⑯ 。 セク タ 長 1L も ググ 久 が 296 バ イト て す 。 





ちょ っ と 理解 し に くい か も し れ ま せん が 、 デ イィ イス ク と いう の は イ 
ー ジ 的 に は レコ ュー ド 毅 の よう な も の だ と 考え て くだ る い 。 徐々 に ji 護 計 
か ゆい だ た だ は を と 研い ます 。 


な お 、 デ ー タ ファ イル に し ろ プ ログ ラム ファ イル に し ろ 、 デ ィ ス 数 
に 書き 込ま れる と き は 「 ク ラス タ 」 単 位 で 行なわ れ ま す 。 
セク タ が 8 つ 集 まっ た も の を 「1 ク ラス タ 」 と 呼び ます 。 で すか が 興 計 
有 有 ペー ジ の 図 で 、 ト ラッ ク 0 の 「 セ クタ 1 セクタ 8」 ま で が 1 つの の 
みえ ス 、。 「 セ クタ 9 一 セク タダ 16」 も 、 や は り 1 つ の クラ スタ と て 語 
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トラ ッ ク 39 
トラ ッ ク 38 


還 に 人 を りり 0 
1 トラ ッ ク テ 2 クラ スタ 
と た なり ます か ら 、 デ ィ ス ク 全 体 で は 
( 2 クラ スタ ) X (40 ト ラッ ク ) X (2 サイ ド ) =160 ク ラス タ 


語り まず 。 
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9 


ー ツ ディ スク を 用 意 す る 





デー タデ ィ ス ク 


〈 涯 > ここ で 作っ た デー タデ 


イダ も か ス 革 の コピ 
mm 存じ し て で いま すか ら 「 シ ス 
9 | に な けり ます 
が 、「 デ ー タ だ け を 記録 す 
る 」 と いう 意味 で 「 デ ー タ 
ディ スク 」 と いう 表現 を 使 
いい ます 


40 


る て 、 お お ま か な 説 明 が 終り まし だ た の で 、 こ れ か ら 実 践 に 入り ます 
が 、、 その 前 に 1 つ し て お きた いく と 類 あ り ま す 、 

いま 、 あ な だ の ディ スク ユニ ッ ト に は 第 1 章 で 作っ た 「 コ ピー 版 の 
シス テム ディ スク タ 」 が も タタ ト し て あり 記す 物 。 を し て ひれ に は しむ チ 
イリ ルディ イブ グラ タム 谷 ど が ね る め ら れ で いま きま 滞 。 


私 だ ち は こ れ か ら 、「 英 単語 . と か 「 住 所 録 」 な どの デー タフ ァ イ 
ル を 作り 、 そ れれ を デイ スク に 書き 込ん で いて こと に な り ま す が 、 も し 
同じ ディ スク を 使う こと に な り ま す と 、 デ ー タ ファ イル を 作る た め の 
プロ グラ ム フ ァ イル も 一 緒 に 保存 し て お く こ と に な り ま す 。 

当面 この よう に 、1 枚 の ディ スク だ け で も あま り 支 障 は な い の で す 
が 、 た と え ぇ ば 「 住 所 録 」 の 登録 数 が 500 件 と か 1000 件 に ふえ て きま す 
と 、 デ ィ ス ク の 残り の 容量 が だ いぶ 狭め られ て き て 、 フ リー クラ スタ 
が ゼロ に な る と 、 


Disk Fall 


の エラ ー に な り 、 そ れ 以 上 書き 込め な く な り ま す 。 

を そこで この よう な 事態 も 考慮 に 入れ て 、 も う 1 枚 新 し い デ ィ ス ク を 
用 意 し 、 こ れ を 「 デ ー タ ファ イル 専用 の ディ スク 」 と し た いと 思い ま 
3 

で は 、 新 し い デ ィ ス ク を 1 枚 用 意 し 、 こ れ を ドラ イブ 1 に セッ ト し 
て 、19 か ら 21 ペ ー ジ まで の 処理 、 つ まり フォ ー マ ッ ティ ング か ら デ ィ 
スク コー ド の コピ ー ま で を 行なっ て 《 だ さい 。 YOLCOPY に よる 
ボリ ュー ムコ ピー を する 必要 は あり ませ ん 。 以後 この ディ スク を 「 デ 
ーー ダチ ィ ス タク) ん た 呼 さも 人 人 し ます 。 

ラベ ル に 「 デ ー タ ディ スク ( 含 プ シス テム )」 と で も 書い て デー タデ 
ィ ス ク に 貼っ て お いて 《 だ きい 。 


で は 次 節 か が ら プ ログ ラミ ング に 入り ます が 、 デ ィ ス ク の モッ ト は 次 


の よう に 符 が o で 4 だ 2 


シス テム ディ スク 只 ほ ドラ イブ ロ 


デー タダ ディスク 8 ドラ イブ 1] 








ら ・4 


ディ スク に デー タ を 書 寺 込 む 





き て 、 お また だ た ぜ し まし た 。 こ 履か らい よい よさ デー タ の 読み 革 き を 学 


ん で いき ます 。 

ここ で 取り 上 げ る プロ グラ ム は 「 英 単語 練習 プロ グラ ム 」 で す 。 し 
か し この 本 で は 、 英 語 の 勉強 が 目的 で は あり ませ ん か ら 、 扱 う 単 語 も 
や さる し い 基 本 単語 に し て お きま す 。 

も し あな だ た に お 子 き さん が いら っ し ゃ や る よう で し た だ たら 、 こ の プロ グラ 
ム を 応用 し て 本 格 的 な 「 英 単語 練習 プロ グラ ム 」 を 作っ た ら 楽 し いと 
思い ます 。 

と に か く 、 こ の 本 で は デー タ の 扱い 方 、 プ ログ ラミ ング の 基本 を マ 
スタ ダー も し て い だ だ てこ また に 重点 を お いて 博 語 じ ま す 。 


英 単語 と 日 本 語 訳 の 書き 込み 

プロ グラ ム の 前 の ほう に は REM 文 を 入れ て 、 何 も する プロ グラ ム 
な の か わか る よう に し て お く 〈 と 便利 で す 。 NEW コ マン ド を 実行 し て 
が ら 6 人 し て (2 い 8 


file name = 一 > EITAN1 
1984 。6。10 


らら quential data ゅ ri も e 
save "0iEITAN1" 


行 番号 40 の ステ ー ト メン ト は 、 プ ログ ラム を 手直し し た の ち セ セー ブ 


する と き 便 利 で す 。 <《 注 > 
次 に 、 画 面 の 行 数 と 文字 の 大 きる で す が 、 入 力 に は それ ほど た だく 《 く る 
ん の 字数 は 必要 あり ませ ん の で 左右 40 桁 、 行 数 は 20 行 と し まし た 。 


100 MIDTH 40,20 : 
110 し LS 





シー ケン シャ ル の デー タフ ァイル に 数 値 と か 文字 列 を 書き 込む に は 
朋 選 必 N 王 半 支 (プリ ント シャ ー グ 、 ま な は グリ シト ナン が) を 合い 、 


書式 は 次 の と お り で す 。 


(出力 な ら ぴ ) 


PHINTT 壮 (ファ イル 番号 ), 





CONSULE 0,20.0,0.」 


< 洋 た 8 え ほ 。 届 15T コ 
マン ド で 40 行 を 表示 させ 、 
カー ソル を 「 4 」 の と ころ 
へ 移動 し 、「S AVE」 の 
「S 」 が カー ソル の と ころ 
へ くる まで (DEL) キー を 
大 計 き ます 。 隊 が カー 
ソル に 書 っ た ら り ダー シン 
ー を 押し て くだ さい 。 こ の 
プロ グラ ム が ディ ス 交 人 療 
ー プ され ます 。 





PRINT 半 
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「 出 力 な ら び 」 に は 「 数 値 」 あ る い は 「 文 字 列 」 が 入り ます 。 
ファ イル 番号 まだ 「 フ ァイル 番号 」 に は 0 か ら 15 ま で の 整数 を 指定 で きま す が 、 
食 | ンス テム ディ スク を 起動 きせ た と き に 画面 に 表示 され た 





Hou many disk fi]les(0-15)? 


と いう メッ セー ジ が あり まし た が 、 こ の と き 入 力 し た 数 値 を こえ て 護 
| いけ ませ ん 。「 同 時 に いく つ フ ァイル を 使い ます か ?」 よ と いう あな た 
旧 へ の 間 い か け で し た ね 。 
「 それ で は さる っ そく 書き 込み 部 分 の プロ グラ ム を 作っ て み ま し ょ 2 う 。 
| 次 の よう に な り ま す 。 
| 












120 INPUT " ェ イ コ * "ja kw ci 
130 INPUT “ | 4 
140 PRINT #1。A ま :" 。":B ま ま - デ ィ ス ク ヘ へ データ を 書き 込む 





SUN ダブ ルク ォ ー テ ーション で コン マ を は さむ お む 
さあ 、RUN る せ て みて くだ さい 。 適当 な 英 単語 と 日 本 語 訳 を 入力 
し み まき しょ は 9 
ぢ お や 7 ピー ッ と いう プ ザ ー 音 と と も に エラ ー メ ッ セ ー ジ が 返っ て 
」 開 きま し た 。 精 神 衛生 上 よく な い 音 で す が 、 ま あ 我 慢 し まし ょ う 。 
上 炊 の よう な 画面 に な っ て コマ ンド 待ち に な っ て し まい まし た. 


トーーーーー と * ぁ * も 入力 後 リ ター ン キ ー を 押す 





に DEE39ESRORAINTYGsomgjpgirinBR MP 人 ss 291 に 








直訳 する と 「140 行 で ファ イル が OPEN され て いな い 」 と いう こ 
と て す 。』 シ ァイル が 開か ん て いな 広 ま は どう いう こよ で し ょ うか 。 
実は ファ イル と いう の は 、 た と えて みれ ば ノー ト の よう な も の で 、 
開い て な けれ ば 書き 込み が で き な い の で す 。 

あな だ た が ノー ト に 何 か 書 く と き 、 開 いて か ら 字 を 書き ます ね 。 デ イィ 
スク の 読み 書き も 原理 は これ と まっ た く 同 じ な の で す 。 

ここ て 再び 、 シ ー ケ ン シ ャ ルフ ァイル と ラン ダム ファ イル の 違い に 
つい て よれ て あき ます 。 

ディ スク を ノー ト に だ た と えま す と 、 シ ー ケ ン シ ャ ルフ ァイル の 場合 、 
1 ペー ジ 目 か ら 順 序 よ く 書 いて いか な けれ ば な ら な い の で す 。 一 方 、 
ラン ダム ファ イル の 場合 は 、 自 分 の 好き な ペー ジ に 、 つ まり 、10 ペ ー 
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ジ 目 で も 自由 に 書き 込む こと が で きる の で す 。 

まだ た 、 す で に 書き 込ん で ある ノー ト の ある ペー ジ の 文章 だ け 読 みた だ 
く な っ だ た と き 、 シ ー ケ ン シ ャ ルフ ァイル で す と 、 自 分 の 意志 と は 関係 
0 しい 0 あま 生ま いこ と 順 諾 よく ペー ジ を めく っ て 
いか な けれ ば な ら な い の で す 。 

と こと が 、 ラッ ツ ダ ム フ ァ イル の 場合 。 メ クー ト に イン デック え が つ い 
て いる よう な も の で 、 直 接 自分 の 希望 する ペー ジ を 開い て 読む こと が 
で きる の で すず 。 ず いぶ ん 便利 て で すね 。 

これ で 2 つの ファ イル の 違い が イメ ー ジ 的 に 以前 より は っ きり し て 
きだ の で は な いか と 思い ます 。 


ファ イル の OPEN と CLOSE 


き て 、 固 画 に エラ ター メッ セー ジ が 出 だ ま ま ス トッ プ し て し まい まし 
だ た 起 、 い ま の た と え 語 て も 6 あ ね か り い た だ り だ よう に 、 フ アイ ル 6 い 
う 名 の ノー ト を まず OPEN する 、 つ まり 開か な く て は いけ な い の で 
すま を も て て 十 る も 次期 て と て が 、 琴 きき 陸 を ね な ら 際 選 て 起 《、 つ 
まり CLOSE し な げ れ ば な ら な い の で す 。 

OPEN 文 は 常に CLOSE 文 も 対 で 使わ れ ま す 。 

書式 は 次 の と な おり で す 。 


OPEN 


と し LOSE 


DPEN "モー ド ? , 壮 (ファ イル 番号 ) ,。 ? フ ァイル ディ スク リプ タ " 


CLO (ファ イル 番号 ) , 半 (ファ イル 番号 ) , 





モー ド に つい て 
モー ド は モー ド 文 字 「1I」「OIIA」 ま た は 「R」 に よっ て 指定 し ま 
す が 、「RR」 は ラン ダム ファ イル の 場合 で す の で 、 こ こ で は 省略 し ま 
す 。 「I」FTO」「A」 は それ ぞ れ 入出 力 の 違い を 示し ます が 、 その 意味 
は 次 の と お り で す 。 
⑯ | (イン ブッ トモ ー ド ) 一 一 指定 され だ た ファ イル か ら デ ー タ を 読 
必 出 す あ も き に 使い ます 。 フ ァイル が ガイ スズ スグ タダ 上 に いと エラ と 誠 
本 。 
② (アウトプッ トモ ー ド ) 一 一 指定 され だ ファ イル に デー タ を 書 
き 込 むと き に 使い ます 。 フ ァイル ディ スク リプ タ て 示 る れる ファ イ 
ル 名 が すでに ディ スク 上 に 存在 する 場合 に は エラ ー と な り ま す 。 
 A (アペンド モー ド ) 一 一 すでに ディ スク に 書き 込ま れ て いる シ 


イシン ゾル K 生 アト 
(INPUT "MODE) 


PJ っ 
(OUTPUT MODE) 


アペンド トド 衝 一 
(APPEND MODE) 
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OPEN "1 。 


OPEN "O" , 
OPEN "A" , 


ー ケ ン シ ャ ルフ ァイル の 末尾 に デー タ を 追加 し た いと き に 使い ます 。 
プア イ ルディ イス クリ プ タ で 示 き れる ドラ イグ に 、 指 定 き れ た ファ イル 
名 が な いと エラ ー に な り ま す 。 


「 フ ァイル 番号 」 は PRINT 斗 文 の 場合 と 同じ で す 。 ま た 、「 フ 
ァイル ディ スク リプ タ 」 も LOAD、SAVE の と き と 同じ で すか ら 
2 わか がり ま し た お ね 。 


と ころ で デー タフ ァイル の 場合 、 そ れ と は っ きり わか る よう に ファ 
イル 名 の 一 部 に 「D AT」 な ど を 入れ て お く 〈 と 便利 で す 。「DATA」 
の 頭 3 文 字 を と っ だ わけ で す 。 こ うし て お お け ば すぐ デー タフ ァイル だ 
と いう こと が わか り ま すね 。 

を こ で 私 た ち は 、 英 単語 セ よ ょ び 日 本 語 訳 の た め の デ ー タ ファ イル に 


EITANDAT 


6 人 策 者 ずる お さ ど ば 事 宣 【 

ファ イル 番号 は 140 行 の PRIN 華 壮 文 で 「 1 」 を 使っ て いま すか ら 、 
ジー ケン シャ ルフ ァイル の 3 つの モー ド は 次 の よう に 表わす こと が で 
きま すず す 。 


:EITANDAT" イン プッ トモ ー ド 
:EITANDAT" アウ ト プ ッ トモ ー ド 
・ 己 ITANDAT" < アベ ント モー ド 


#1。" 1 
#1。 1 
#1。" 1 





〈 淫 >1 ドラ イブ タイ プ を ご 


使用 の 方 は 、|15 行 の ファ イ 
ルディ 区 クリ プ タ の ドラ イィ 
プ 番 号 指定 を 「0 : 」 に し 
を 《 だ さき い 。 以後 、 ド ライ 
プ 番 号 指定 に つい て は 同じ 
扱い に な り ま す 。, 


8 て 、 私 だ ち は 現 在 ぼ の モー ド を 必要 ほ と し て いる で し ょ うか ? 
そう で す 。 英 単語 の ファ イル を 新しく 作っ て デー タ を 書き 込む の で 
すか ら 「 ア ウト プッ トモ ー ド 」 で すね 。 

で は 、 こ れ を 使っ て 書き 込み 部 分 を キー イン し て お きま し ょ う 。 
先ほど 述べ だ よう に OPEN し た ら 必 ず CLOSE し な けれ ば な り 


まぜ ん か ら 5、 つ いで に CLOSEE 文 も 入力 し て や きま ず 。 









160 END 
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115 OPEN 0 , 攻 1。 "1:EITANDAT " 
150 CLOSE #1 






上 の プロ グラ ム で は 160 行 と し て END 文 を 入れ て いま す 。END 
文 を 入れ て お く と 、 す で に OPEN され て いる ファ イル は すべ て CL 
OSE さ れ ま す の で 、150 行 で わざ わざ CLOSE 文 を 入れ る 必要 は な 
い の で す が 、 一 応 行儀 よく 書式 に の っ と っ て 話 を 進め ます 。 











また 、CLOSEE 文 の うし ろ の ファ イル 番号 を 省略 し ます と や は り 、 
すでに OPEN きれ て いる すず すべ て の フラ ァイル が CLOSE る され ます か 
ら 注意 し て くだ さる い 。 

きみ あみ 今度 は エラ ー が 出 ず に 実行 で どき る で し ょ うか 。 浴 宮 人 
走ら せ て みて くだ さい 。 





確か に 成功 し た よう で す が 、 1 単語 登録 し た だ け で 終っ て し まい ま 
し だ 。 も もう少し デー ズ タ 数 や ふやす こと は て まがい でしょ りか 。 
120 行 の ステ ー ト メン ト に プロ ング ト 文 を 入れ 、 さ る さらに 「99」 を 入力 
し た ら END 処 理 へ 飛び 、 そ の 他 の 場合 は デー タ を 書き 込ん だ の ち に 
1920 衝 my いく (よみ に し で あみ あま しょ う 

次 の ステ ー ト メン ト を 追加 し ます 。 


120 INPUT エイコ" (オリ ワリ =99 ) ” 3 中 


125 IF A ま ="99” THEN GOTO 150 
145 GUTU 120 





プロ ント 文 を 入れ まし た の で 、120 行 な よび 130 行 の INPUT 文 に 
よる クエ スチ ョ ンマ ー ク 「? 」 の 出力 位置 が ズレ て きま すか ら 、130 行 
の ゼン アプ ド 人 の 「 そ ホン コ 」 の 因 に 2 ペッ ャ ス を 3 つ ウイン サー『 ド し て 
を まし も まう 。 


3 TNRUT 「 ささ 以 革 ま 回 


あき ああ 、 これ RUN し て みて ん 《 く 刀 き MA 
お や っ 、 ま だ た だ た エラー メッ セー ジ が 表示 る され て し まい まし た 。 





この エラ ー の 意味 は これ か ら 説 明 し ます が 、 そ の 前 に ダイ レク トモ 
ー ド で 次 を キー イン し て お いて くだ る さい 。 


CLUSE 以 
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S の ダイ レグ トド トス チー トメ ント を かぜ 行 な うか と いい ます と 、 る 閑 
か ら 先 。 プ ログ ジム が 実生 し て チ ス ト し た りす る か ダー ス が 多く な かり 半 
す が 、 先ほど の よう に エラ ーー メッ セー ジ が で て プ ブログ ラム が 停 作 眉間 
し まっ た 場合 、 か * 
| ら 穫 ず 。 
くり 返し ます が 、 

し て お く 、「 本 を 読み 終 を た ら 、 ち ゃ ん と 閉じ て お か な けれ ば な り ま 
せん ね 」、 こ れ と 同じ で す 。 

ジア イル を OU ま N し た まま オイ スグ ああ が オス グー ボキ ニキ リ メド トド がら 抜 汗 
出 も だ り ひじ まず 、 ディ スグ が こわ も れ て し まう 場合 6 あり ます か ら 汗 
間 (b 導 て 8685。 


それ で は エラ ー メ ッ セ ー ジ の 説明 に 戻り ます 。 


File Already Exists In 115 


oy 放し (0e 
43 ペ ー ジ の モー ド の 解説 の 馬 の と ころ を ご らん 〈 く だ きい 。 ア ウト プ 
IN 一 下 イ プア イル 谷 OPEN す みる 城 全 2 指定 し た ステ イル 同 -- 
の ラテ イル が デイ スグ に 存 臣 し じ し て ほ いけ な か ない ⑳ で し だ た 。 
し の が な が いで まま 邊 人 ら 、 
CE ある も 紀 避 介 し UM の 


| KILL "1:EITANDAT“ | 


を それ で は RUN し て みて くだ る さい 。 信 上席 は うま くい くま 時 いま す 。 


(オリ リ = ミ 99)? airplane 

思 か 2 7 ヒコ エキ 
(オリ リ = ニ 99)7 apple 

9 ポ NION け 7 
(オリ リ ミ 99)7?7 beetle 

呈 ポ 2 カプ ドリ シッ 


(オリ リ = テ 99)7 bicycle 
5 0 衣 0eP0y 5 。 
(オリ リ ニ 99)?7 較 
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実行 きせ た 状態 は 前 ペー ジ の と お り で す 。 ず いぶ ん 単語 を 登録 で き 
る よう に な が か が き し が が 、 入 した ゲー タダ が 上 か ゆり ドド ま で 沿 志 さき Y、 
少々 見 肖 お 8 理 い よう で ず /。 も う ひら 了 天 し て 、 

まい 63 まき も 0 ラド Mb 人生 は WNW ルト て 他 の の 
ム を 画面 に 表示 し て み ま し ょ う 。 





Tile name => EITAN1 
由 8d 6、1U 

らら ueGh モ 1a1| da モ a い MP ュ セ 
save Ui:EITAN1 " 


_ MIDTH 40,20 : CONSOLE 0,20。0。0 
CLS 
OPEN "0" 1。"1:EITANDAT 
INPUT "エイコ" (オリ リ =99 ) " : A ま 
IF A ま ='"99" THEN GOTO 150 
NigW 癌 ニホン] コ " "1B ま 
PRINT 持 1.A ま : 。 1B ま ま 
GOTO 120 
CLOSE #1 
END 


行 番号 140 と 145 の 間 に を 入れ て 、 カ ウン タ が 5 に な っ た だ ら 
画面 を 多 小 玖 す る まう に し まず 。 て とめ の を きる 
の を 忘れ が いよ うに し て 《 だ さい ゆい 。 





ト 邊 ズ し じ = ニ し +1 


上 は ま F し こつ IFHEIMM し ョ 0 ) し L5 





これ で 完成 で す 。 最 後に 行 番号 100 以降 が ふぞろい で す の で リナ ン 
バリ シグ し て 整理 し て お 生ま 0 介 見 3。 


RENUM 100,100 


プ 品 が うり 区 下る を 用 ペ ー ル に 示し まま 。 

ゆん どう で も 前 ペー ジ の よう に 「1 2 所 LEFEANDATI や を KILL 
し で か ら 6 グロ グラ クラム を RUN き させ 、 次 の 単語 を 入 丸 も て デー タタ ジア ティ イ 
ル を 作っ て みて くだ きい 。 ' 


8a1Fplane コーキ apple 2 
beetle カフ" ト ヵ > bicycle ッ テン シャ 
bl ackboard ] 必 52 こら 85 七 1e オシ 日 
ビュ も y トシ col lege タイル カク 
Com1c book マッ ツガ カ ” des に エ 
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Tile name = 王 > EITAN1 
1984 。6。10 
ほら duen セ 1al data い Fie 


ave UiE1ITAN1 


MIUIH 40,20 》: CONSOLE 0。20,0,0 
じじ ら [ 

DPBEN 0 ff1 12ETTANDAT( 

FNEUT エイ コツ (オリ リミニ 99 ) !・A 


IF A ま ="99" THEN GOTO 200 
INPUT 『 ニホン コ " "1B ま 
PRINT 本 1。A ま ょ | 。 1B ま ま 

し = し じ +1 

EEーSATHEN CD= ニ 0 * PLS 
5UTU 130 

じじ USE 1 

END 





上 に 示し た プロ グラ ム で は 、160 行 で 入力 デー タ を ディ スク に 書き 込 
ん た で いま す が 、 こ の と き 便 う の 使い 方 で 間違い や すい 
ケー ス が あり ます の で 、 デ ィ ス ク 上 で の デー タイ メー ジ を 説明 し な が 
ら 補 足し て お きま す 。 

まず 、 例 と し て 4 つの 書き 込み 方 を 示し ます 。 


⑥ A ま = "desk " :B ま =" ツ クエ " :PRTINT 柱 1 AA,B$ 
@ A 呈 = "desk " :B も =" ツ クエ " :PRINT ##1。A ま 3B ま $ 


@ Ab= "desk ":B ま =" ツ クエ "iPRINT 1。A ま 】"。"' 1B 


の A= ニ 2 ウ 1 :B=1257sPRINT 1。AjB 





載 ディ スク に 書き 込ま れ た シー ケン シャ ル デ ー タ を 2 ・ 6 節 で 説明 す 
る (イン プッ トシ ャ ーー プ 、 ま ん た は イン アッ トナ ン /0 理 
て 読み 出す と き 、 各 (この 場合 、A$ と B$ で 1 レ ュ ー ド 、 
を で 上 レコード た 老 %TW だ SO) は レ ョ ー ド 間 選 
と いう 文字 コー ド が ある か どう か に よっ て 、 ま た 各 項 目 (A$、B$、 
放 、 本 が を ) は コン マ あ る い は スペ ー ス が ある か どう か に よっ て 議 別 
る され ま す 。 
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@② の 場合 、 A$、B$ と いう 2 つの 項目 の 間 に セ ミコ ロン が あり ま 
すか ら 、 デ イィ スク に 書き 込ま れる 場合 A$ の うし ろ に すぐ で ぐ B$ が 書き 
込ま れ ま す の で 、 こ の 例 で は 「desk ツク エ 」 で 1 項目 と し て 登録 る され 
て し まい ます 。 続い て その うし ろ に 0D、0A と いう 16 進 コー ド が 入り 、 
次 の レコ ー ド と の 区 切り に な り ま す 。 


人 MTTGRI ド 間 の 区 切り 
ー MM 









で すか ら 上 図 の 場合 、 デ ィ ス ク か ら 読 み 出 す も き A$ に 「desk ツ 
クエ 」 が 入り 、B$ に 「city トシ 」 が 入っ て し まい 、2 つ の 項目 desk 
と ツ 多 和 エ を 別々 に 読 立 CuL が で き が 《 な っ し まい ます 。 

の 例 で は ダ プ ブル クォーテーション で か こま れ た コン マ が あり ます 
か ら 、 こ の コン マ が desk と ツク エ の 間 に 書 き 込 まれ る ため 正常 に ディ 
スク か ら 読 むこ と が で きま す 。 1 レコ ュー ド 内 に 連続 し て 文字 列 の 項目 
が ある 場合 に は 必ず この よう に 区 切っ て くだ さい 。 

A$、B$ も と いう 2 つの 文 宇 列 を 次 の ょ うに それ ぞ れ マル チ ス テー 
トメ ント で 書き 込め ば 、A$、B$ は それ ぞ れ 別々 の レコ ー ド に な り 
ます か ら 問 題 あ り ま せん 。 


PRINI 村 1 ね ま : PRINT #1,B$ 


いち ば ん 間違い や すい の が 夫 で す 。 

A$ と 日 $ の 間 に コ ンマ が 入っ て いま す の で 、 こ の 2 つの 項目 が 別 
々 に 書き 込ま れ そ う で す が 、desk と ツク エ の 間 に ス ペー ス が 入り 、 こ 
の え スペ パース も 同一 の ショ ー ド ある て 書 ぁ 入 まれ で し じまい ます 。 





ご れ が .| 項目 に な っ て し まう 





| 
- 








スペース が 入る 


⑳ の 数 値 デ ー タ の 場合 に は 、 数 値 問 に 自動 的 に スペ ー ス が 入る よう 
に な っ て いま す の で 間 題 あり ませ ん 。 


を それ で は この プログ ラム を セー ブ し て 次 へ 進み まし ょ う 。 


SAVE “EITAN1” ご | 
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ビ * 〇 の 














| 
| バイ ト 
「 
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「 バ イト 」 と いう 単位 に つい て 





みな る ん は も う ざ ぞ で ん じ か も し れ ま せん が 、 ユ ンピュータ で は 1 還 
イト 」 と いう 単位 を よく 使い ます の で 簡単 に 説明 し て お きま す 。 

と くに ディ スク 操作 に 寺 い て は 、「1 バ イト デー タ 」「4 バ イト 再 
と 角 と いら だ た 形 で デー タ の 外す と り を 行い ます の で 、 ザ が ひ 和 っ て 計 
〈 必要 が あり ます 。 

だ と えば 「D1SK」 と いう 文字 列 を ディ スク に 書き 込ん だ 場合 、 
この 項目 は 「4 バ イト デー タ 」 と いう こと に な り ま す 。 つ まり 、 文 亡 

(スト リン グ ) デー タ の 場合 、 1 文字 が 1 バイ ト に な り ま す 。 

マテ キュ アル の 「 天 ラク タコ ョ ヨード 表 」 あ どら ん 〈《 だ きる い 。 「D」⑳0 
キャ ラク タコ ー ド は 16 進 表記 で 「4 4」 と な っ て いま すね 。 これ は 16 
進数 に な お し た 場合 の 「1 バ イト デー タ 」 で す 。 こ の よう に 2 桁 以 下 
の 16 進 数 は すべ て 1 バイ ト で 、 も っ と も 大 きい の が 「FF」 で す 。 

で は これ る を 10 進数 に 換算 し て み ま し ょ う 。16 進 数 の 「F」 は 10 進 数 
で (ほす 8) で すめ が の め 


&HFF デ 15X16 十 15 三 255 


と な り ま す 。 つ まり 、10 進 数 で は 255 まで の 整数 を 1 バイ ト と いい ま 
2 が 

話 を も と に も ど し ま す が 、 文 字 列 「DISK」 を ファ イル に 書き 込 
むと 、 イ メー ジ 的 に は 「D | S K」 あ る い は 「44 49 5 
3 4B」 の よう に 記録 る きれ 4 バイ ト の メモ リ を 必要 と し ます 。 

一 方 、 数 値 デ ゲー タ の 場合 、 あ と で 述べ る ラン ダム ファ イル に お いて 
は 、 た と えば 10 進 数 の 「123」 は 16 進 数 に な お す と 「7 B」 で すか ら 、 
ディ スク 上 に 「7 B」 と 記録 きれ 1 バイ ト 専 有 し ます が 、 私 た ちがい 
ま 学 ん で いる シー ケン シャ ルフ ァイル に お いて は 「123」 の それ ぞ れ 
の 位 が 1 文字 ずつ の 文字 と し て 書き 込ま れ ま す 。 

こ 息 を イメ ー ジ 的 に 表現 し ます と 、「『1J「2 3」 の キャ ラ タ クタ ョ 
ES UPS 2 SD て MWL。 の が イ 入 み 上 上宮 1 

9 ある も い W 8 も 92 8983」 の ドナ サ に な りう 3 パイ ト 導 要 5 し 
ま 396 

以上 、 「1 バ イド と いう 考え 胡 つ い @ 科 単 (3 説明 し まし た が 、 
ね わからない 人 は その まま で けら こう て ず 。 「1 文 宮 が 1 バイ ト な ん だ 
な お 」 くし じい に あ ん 人 る MP)( だ きき Ws 








ら ・B ディ スク の デー タ を 読む 





この 節 で は 、 2 ・ 4 節 で ディ スク に 書い た デー タ を 読ん で 、 そ れ を 
ディ スプ レイ に 表示 し て み ま す 。 実際 に 書き 込み に 成功 し た か どう か 
まだ 不安 で す 。 は や 確か め た いも の で すね 。 

ゲ で 導 導 本 位 ま さき 6 も 発 ほ 8 の メー トド の 才 え 詞 と 同じ で す 。 つ まり 、 
ノー ト を 開い て (OPEN し て )、 読 み 終 っ た ら 5 閉じ る (CLOSE す 
る ) の で す 。 だ だ し この 場合 、 モ ー ド が 読み 出し の モー ド (イン プッ 
ト モー ドリ) に な がり ます 形 は 次 の 5 あり で す 。 


PEN 1 41。 IEITANDAT 


イン アト 電 e ま 


イン プッ トモ ー ド 





この ステ チ テー トメ ント に 半 1 と いう ファ イル 番号 が つい で いま す が 、 
これ に つい て 補足 説明 を し て お きま す 。 

コン ピュ ー タ が ディ スク の 読み 書き を する 場合 、 実 は 直接 行う の で 
は な く 本 体内 の バッ ファ エリ ア と いう 場所 を 中 継 し て 行う の で す 。 こ 
の バッ ファ エリ ア の 数 は ディ スク 起動 時 の 


Hou many disk files(0-15)? 


で 指定 し た 数 だ け 確 保 き れ ま す 。 

上 の メッ セー ジ で 枝 (0 エー15) と な か っ て のり ます の 人 506 の パッ ツア モリ 
ア を 使う こと が 可能 で す が 、 実際 の デ ロ グ ラム で ジウ ァ イル を 同時 に こ 
ん な に た くさ ん OPEN する こと も あり ませ ん し 、 ま た だ 1 つの バッ フ 
ァ で 256 バ イト 必要 で すか ら 、 メ モリ も それ だ け よ けい に と られ て し ま 
いい 水生 8 

普通 は 3 くら い を 入力 し て お いて 、 こ の 範囲 内 で うま く や り くり す 
る ほう が よい に で し ゅ いう 。 (6) 

だ な と た ば 、 1 つの ゲロ グラ ム て 6 や D の ラ ァ イ % (人 に AA、、6、D. 
倒 d ま も し て お きま す ) を 違う と し て も (は) 板 1 の 2 ペタ ルプ ナ テ キリ ア を 上 に 、 
痢 20000 ツ がり を お に 、 橋 8 の 2 パッ 少 ナ リ サリ デ か が か C に ) よう 
よう に 限定 も て 割り 当て 6 られ る の で は な 《、' だ た と えん ば 攻 の パッ フツ. 
アエリア を 使っ て いる ファ イル B を CLOSE す れ ば 、 こ こ を 残り の 
AA、G、D、E、F は 自由 に 0PEN し て 使う こ 上 が で きる の で す 。 つま 
り 、 3 つの バッ ファ エリ ア を 同時 に 4 つ 以 上 の ファ イル の 入出 力 で 使 
いき あえ し な けれ ば 、 グ 使 お うと 自由 な の で ず 。 

プログ ラム の 流れ の 中 で 、 使っ て いな い フ ァイル は ほ は CLOSE し て 、 
yy フフ ア エリ アテ あほ は か の ク テ ァ イ ル は 貸し て あげ ぼや ば よい で し 1 ょ う 。 


バッ ファ エリ ア 


第 2 章 シー ケン シャ ルフ ァイル (1) 51 












F M 一 77 


0 0 の 0 lppdNN。 









デア ディ スク 


まだ 、 ど ん な に デー タ 重 が ぽう 央 で あっ て も , 1 つの パッ ファ ア ( 全 細 
256 バ イト の 広 き さき し か あり ませ ん か ら 、 こ れ を 単位 と し て 読み 書き を 行 
Po 0 0 


散 を も と に 戻し まし せっ う 。 
イン プッ トモ ー ド で ファ イル を OPEN し まし た ら 、 次 は デー タ を 
読ま な けれ ば な り ま せん が 、 書 式 は 次 の よう に な り ま す 。 


INPUT 音 1 。A ま 。,B ま ま 


INPUT 盾 文 の 場合 は 、 う し ろ に 続く 〈 変数 は 数 値 変数 で あれ 文字 
変数 で あれ 、 ユ ンマ で 区 切れ ば よい の で す 。 

この プロ グラ ム 名 を 「EITAN2j も &U て 、 デ ガイ スク か らら デー エダ タダ 溢 
読む グロ グラ ム を 作り ます と 次 の よう に な り ま す 。 


Tile name = 王 > EITAN2 
1284 .6。10 (MRB2INGHUISRENUIOO 3 
ら S ど Jen も tial data read 
Save  EITAN2 ーーーーーーーーーーーーー セ ー ブ 用 R'E M 文 


MIDUEH AU》j20 7 LODNSOEE 0,20 DJ0 

レ ES 

UEEN 1 ,#1。 12EITANIAT テー 、 ーー ファ イル の ォ オー ソン 
INPUT 昔 1 。 台 生ま も <ーーーーーーーーーーーーーーーーー デ メー 夕 を 読む 

PRTINT A*。B ま ディ スプ レイ に 表示 
5UTU 130 

CLOSE 基 1 <ーーーーーーーーーーーーーーーーーーーーー 一 CLOSE 文 

回 邊 


前 節 で 書き 込ん だ デー タ を 読ん で ディ スプ レイ に 表示 する よう に し 
て あり ます 。47 ペ ー ジ の デー タ は 書き 込ん で あり ます か ? 
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ROCKRIUUNL 宮 衝 で て 《 だ きい ゆい 》 
お や お や 、 ま だ た ピー ッ と いう ブザー 音 と と も に 「Ready」 の 表示 が 
で て 芝 ドド 笠 ちと な か % ま した 。 











81Fplane ヒコ ー キ 

apple 

beetle 用 /( ドム シリ 

bicycle ・ ッ ` テ ン シ ャ 

blackboard の ツア 1 
C8Stle オシ 0 VI 
G 小 や が トミ 

col lege タイ カド ク 

olo]ilb Wo 天 o1o1o1.< AP が 

o【 ニ トー】 リン 』l 


TDM も Raa セ も End ID 1307 
Read ッ メ 


この エエ ラー メッセ ー ジ 、 
Input Past End In 130 


は 、 デ イィ イス ク を 扱う よう に な る と 、 初 め の 頃 は よ 〈 出 会 う メ ッ セ ー ジ で 
す 。 意 味 は ( 
Lv の! 7 

と チ 。 

の ググ ム め 見 て くだ すい 。 

130 行 で デー タ を 読ん で 140 行 で 画面 に 表示 し 、150 行 で 再び 読み 込み 
舌 理 へ 飛ば し て いま す 。 これ で は ファ イル に デン タ が な く 《 く な っ ろ て も ま 
だ 200 も 26 し あり は すず て すら に と と か が 

きせ て 、 こ の ルー か ら 抜 け 出 き な けれ ば な り ま せん 。 

この 、 デ ー タ チェ ッ ク の だ た だめ の 関数 が (End of file の 略 ) で 
す 。・ コ ンピュータ は 、 この 関数 の 値 が ー 1 ( 真 、 つ まり ァイル の 末 
尾 で ある と よい に う も を) が 0 ( 倫 、 つ まり まだ ファ イ 光 が ある まい りう と 
と ) か に よっ て 判断 し て いる の で す 。 

で すか ら 、 こ の 関数 を デー タ を 読む ステ ー ト メン ト の 前 に 入れ な け 
れ ば な り ま せん 。 


12 つ IF EUF(1) THEN GOTO 160 
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EOEFE(1)、 つ まり 井 1 の ファ イル が も し PEnd of file な ら ば 、 フ 
アァ イル の CLOSE を し ます 。 を そし て 、 行 番号 150 の GOTO 文 を 鐵 
更 し て 、125 行 へ 飛ば す よ うに し ます 。 


150 GUTO 12S5 


プロ グラ ム を 実行 し て み ま し ょ う 。 今度 は エラ ー も な 〈 く 無事 に 単語 
を 画面 に 表示 で きだ た と 思い ます 。 

し か し これ で は 。、 デ ィ ス グ か ら デ ー タ を 読ん て 、. そ れ を ディ スガ 議 
イ に 表示 し た と いう だ け で 、 英 単語 を 表示 し 、 そ れ に 対し て 答え る と 
ぃ う 形 式 が た と の っ て いま せん 。 少 し 手直し し まし ょ う 。 

140 行 で は 英 単 語 だ け を 表示 し 、 そ の 意味 を 声 を 出し て 答え ぇ 、 答 え ぇ 終 
っ だら キー を 押し 、 続 いて 正解 を 表示 する よう に ステ ー ト メン ト 
の 変更 と 追加 し ます 。 


140 PRINI A ま ま 


145 INPUT ”" パニ ホホ ンコ" ヲ ラ ト "9 ソ " (OK=RET ) ” sR ま も 
147 PRINT " コタ ェ = 王 > "sB ま 





きる あ 、 キ ー イ ン で きま し た か ? 
宮 肖 だ ら 長 UN し や みて (だ る さい 。 


a1FPplan ら @e 
の ZI NAO UK ニ RE 上 ET // 
コタ エ = 一 > ヒコ ゴー キ 「 
に 1o】 9 骨 四 -) 
ホン ッ ゴ ラード り / (UK= ニ RET )? 
軸 b/ 明 康 ーーー ジリ の 


beetle 
nh ジジ 0 の トド リリ ソ (UK テラ RE | ) / 
コタ エ = ニ 一 > カフ "トム ラッツ 

bicycle 


ポン 2 トウ (UKR そ RE | ) /( 男 





これ で 、 デ ー タ を 読み 出す と いう 1 つの 仕事 を 処理 する プロ グラ ム 
と し て は 完成 な の で す が 、 問 題 正解 が 画面 を スク ロー ル す る だ け で 
は ちょ っ と 感じ が で ませ ん 。 1 問答 えた ら 画 面 を 消去 し 、 次 の 出題 と 
いあ の し て あま し ば 馬 。 

まだ 、 表 示 位 置 も を LOCATE 文 を 使っ て 調整 し て み ま し た 。 

次 に を が し ます 。 
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140 PRINI み ム A ま 

| 14 ゝ 還 財 陳 MP0005 ポコ ププ ト 科 V" 
(0K=RET ) "3R ま 

1/ PRINT " コタ 2 ェ = 二 > “jB ま ま 
148 FOR IT=1 TO 1000 : NEXT 1 
142 し し 5S 


行 番号 148 の FORーNEXTT 文 は の 常 と う 手 段 で す 。 こ 
の ステ ー ト メン ト を 入れ て お か な いと 、 す で 次 に 画面 消 到 の ステ ー ト 
メン ト が あり ます の で 、 行 番号 147 の コタ エ は ほとん ど 表 示 る れ な いよ 
う に 県 ああ 

ちょ っ と 退屈 な 勉強 を し だ の で すか ら 、 労 を ね ぎら 2 う 5 意味 で 、「 ゴ 
クロ 層 サ マデ ジジ ダ 」 ま と が で きめ の 詩 業 を 入れ て 材 凍 まあ しょう 。 





169. 上 OU が EE. 有 2 MRLNU MKVMUVY ず た 9 
166 FUR =1 10 3U00 ) NEXf 1 


た し で よみ 2 の ンク 5 電 ヤ グ を て 先 あ 7。 


RENUNM 130 125 
SAVE “EITAN1 “ 


†ile name 一 > EITANZ 
1 ツウ 594)6。1U 
ら 選 duJEGn モ 1a1 dta Feagd 


=8ave  EITAN2" 





WU0UU UIUIH 40.Z20 (し UUONSOLE 0 20.0,0 

RU し [5 ! 

EZU UPEN / | 1 IEIIANDAI 

2U IF 上 EMEA) IMHEN 5010 210 

140 INPUT 六 1 AB まま 

99 EUCAIE /, つ (PRINI A ま ] 
BU RUCATE/ 1IU6O いい INPEUT 2 ウト 9 
(0K=RET ) KR 
EDALOOOAIE/ 1008 ) PRINT ココ 2T 一) )B* 
上 8UN EER [1 10 1000 ) NEXI ! 

光り し し に つっ 

2Z00 60TO 130 

RU DUSE 

多 URIE MED NN PRINT 2 りり UVS ツク 

上 SU EUK [= TU 3000 (NEXT 1 

Z40 END 
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APPEND 


OPEN 「A" 1。"1sEITANDAT " 
人 Nao 





8・7 デー タ を 追加 する 





これ まで に 私 た ち は 、 フ ロッ ピ イ ディ スク に デー タ を 書き 込み 、 を 
れ を 読み 出し て 画面 に 表示 する と ころ まで 学習 し て きま し た 。 「 
デー タ 量 が 多く て 、 と て も ひと 息 に 入力 で き な い と か 、 何 か の 都合 還 
で 次 回 に まわ し だ いと か 、 い ろ い ろ みろ 事情 も 生じ て くる と 思い ます 。 議 議 
残り の デー タ を 現在 作成 きれ て いる デー タフ ァイル に 後日 あら た め 
て 追加 し て 書き 込み た いと いう 場合 どう し た ら よ いで し ょ うか 。 
OUTPUT モ ー ド で は デー タ 書 き 込 み は で きま し た が 、 こ の モー 
ド で は 初回 の 書き 込み し か で きま せん で し た 。 


デー タ を シー ケン シャ ルフ ァイル に 追加 し て 書き 込み た い 場 合 は 、 
APPEND( ア ペン ド ) モ ー ド を 使い ます 。 


た … 信 財 加 の や 一 ギド 
すでに ディ スク の 中 に ある 「EITAN DAT」 と いう デー タフ アァ 壮 
イル を 壮 1 の バッ ファ を 使っ て APPEND モ ー ド で OPEN し な き 
。 も い 條 敵 昧 世 ずり 
を そし て 、 こ の OPEN 文 が 実行 きれ る と 、 デ ー タ を 追加 し て 書き 込 
み で き る 準備 が 完了 し た こと に な り ま す 。 


APPEND モ ー ド は OUTPUT モ ー ド と 同じ よう に 、 デ ー タ を 
書き 込む と いう 点 に お いて は 変わ りあ り ま せん か ら 、 その他 の ステ ー | 
トメ ント は 周 じ て で て 、OUT FUT 用 の プ w グ タム を スク リー シン エ デ 4 
タ で 多少 変更 する くら いで 使う こと が で きま す 。 

それ で は 書き 込み 用 の プロ グラ ム フ ァ イル 「EITAN1」 を ロー ド 
し て 、 ス クリ ー ン エディ イタ で 修正 し て み ま し ょ う 。 


LOAD "EITAN1' ピ 





「LOAD?」 は (PF 6 ) キー に 定義 され て いま すか ら 、 こ れ を 使う 
と 便利 で す よ 。 | 旨 

次 に キー を 押し て プロ グラ ムリ スト を 画面 に 表示 し ます が 、 
リス ト が 少し スク ロー ル し て し まい ます の で 、 画 面 モ ー ド を 80 桁 X25 
行 に し て お きま す 。 「 


MIDTH 80,25 ワ bt 


56 








で は キー を 押し て 《 だ きい 。 次 の よう に リス ト が 表示 る 和 れ 
ます 。 


紀和 下 SI 


10 ” file name = 王 > EITAN 昌 
200901 の 84J6S,16 
30 sequential data 

=ave UiEITAN 中 " 


MIDTH 40,20 : CONSOLE 0,20,0,0 
CIS ] 

OPEN " 園 ',#1。'1:EITANDAT " 

INPUT "エイ コ " (オリ リ =99 ) " ) A ま 

IF A ま ='99" THEN GOTO 200 


INPUT " こ ホ ンコ" "5B$ 
PRINT 1,A ま j" 。' 5B$ 

C=C+1 

IF C=5 THEN C=0 : ELS 
Cl9BIOMKc10 

四 9 に 1 コ 。 | 

lg 





上 の プロ グラ ムリ スト の 中 で 、 自 マ ド に な っ て いる と と ろだ け は 修正 


すれ ば よ て すず 。 ゲ が グラ ム 名 は と 
カー ソル 移動 キー を 使っ て 、 次 の 緑色 の 文字 の よう に 変更 し て くだ 
さい 。 












10 †ile name = 一 > EITAN 
30 ′ sequentia] data 

40 “ save "EITAN3" 

120 OUPEN AA 。 析 1。" 13EITANDAT " 


120 行 の 「1」 の 修正 まで 終っ た ら 、 そ を そこで キー を 押し て くだ る 
い 。 これ で 修正 作業 終了 で す 。 LIST コマ ンド で も う 一 度 確認 し て み 
て % 作 0 Ne 

で は と し て セー ブ し て お きま す が 、 
簡単 な セー ブ 方 法 だ が あり ます 。 カー ソル を 行 番号 40 の 「4 」 に 重ね て 


第 2 童 シー ケン シャ ルフ ァイル (人 [) 57 











四 0 2 aaue "ETITAN3・ 
GNOME 





eee 春生 ね り (DBR い ギ いあ 9 さだ で リク ピリ 

だ の て すか が ご れ で セー プ 完 了 で す 。 

それ で は る っ そく 〈《 だ めし て み ま し ょ う 。 次 の 基本 単語 を 追加 す る こ 
に 人 渦 ます 。 キー の 切り 換え を 正確 に し て くだ きい 。 


和 †Fiend トモ タ “ チ 1 ビュ 1 紀 アヤ メ 
に 1nderga レ 上 en ・ ヨ ウチ エン 1i1 ッ 1 
maP y の Pe8 ビ ナシ 


実行 結果 は 、 次 の ょ うな 画面 に な っ て 終り で す 。 


エイ コ ” (オリ リ =99)? pear 
1 2474 
エイ コ " (オリ リ = ミ 99)? 99 


に イー 『e bi の 
1 





画面 に Ready が で て いま す 。 し か し 、 これ は シー ケン シャ ルフ ァ イ 
ル へ の デー タ の 追加 が 確実 に びき た こと の 保証 び は あり ませ ん 。 フ パソ 
コン は 処理 が 終わ れ ば いつ も Ready の サナ イン を だ す の で すか ら …… 6 
まだ まだ 安心 で きま せん 。 前節 で 作っ た 読み 出し の プロ グラ ム で 確か 
ゆみ まき も よう 。 

ロー ド し て RUN す る 方 法 に は 次 の 2 つが あり ます 。 前 に 勉強 し ま 
し だ か ら わ か り ま すね 。 ど ちら か を 実行 し て くだ きい 。 


LOUAD “EITAN2" ,R 





RUN “EITAN2* 


最終 的 に は 次 の 画面 が 表示 され 、 次 に 「 ゴ クロ ウサ マ 」 が 表示 され 
て 乏 り で す 。 


| る ナー メー 1 gei 


ピコ ボン] トリ ツリ // (OKEKET)? 


コタ エ = 一 > ナシ 











デー タ 追 加 の プロ グラ ム を 実行 する と お わか り の よう に 、 画 面 に 突 
然 デ ー タ 入力 を うな が す メ ッ セ ー ジ が で て き て 、 ち ょ っ と と まとい を 
感じ る 方 ちあ いら っ し ゃ る か も し れ ま せん 。 もう少し 余裕 あや も だ せ て み 
まし ょ う 。 要する に 、 も う 少 し パソ ツ ュ ョ ン と 取り 組ん で いる ょ いう の 感じ 
を 持た な せ だ いも の で す 。 

まつ の 旨 本 まし 貞 ( 仙 に 『 デ ー タ メ プ ツイ カ ラ シャ マス) と 9 
メッ セー ジ を 入れ る こと 。 

も う 1 つ は 、 最 終 登 録 単語 と 登録 語数 を 表示 し 、 そ れ を 確認 し て か 
ら 追 加 処 理 に 入る こと で す 。 

人 害 は 巨 四 T 作 生ま を ロード し て くだ の Wo 

画面 構成 は 次 の よう に し た いと 思い ます 。 





これ ら 5 2 つの 処理 は 、 画 面 消去 を し て が 5 アペンド モー ド で ファ イ 
ル を OPEN する まで の 間 、 つ まり 行 番号 110 と 120 の 間 で 行わ な けれ 
ば な り ま せん 。 し か し 、 こ の 処理 ルー チン は 少し 行 数 も ふえ を そう で す 
し 、 現 在 の スペ ー ス で は だ た り そ う も あり ませ ん 。 RENUM コ ユ コマンド 
で 人家 特 A20 を 140 全 に し で て スペース あと ろ る て お ね お あ ましょ 』 う 2。 


RENUM 140,120 。 


この 《 らい アキ が あれ ば 間に合い を そう で す 。 
ず 、 次 の ステ ー ト メン ト を キー イン し ます 。 


ドル に UENUED LU は TFPE ま PEL 2 eo 2 ん マン 


次 に 、 デ ー タ ファ イル の 未 尾 に ある 単語 と 、 登 録 し て ある 単語 を 変 
数 に 代入 し な けれ ば な り ま せん 。 

これ は イン プット モード で ファ イル を OPEN し て デー タ を 読み 飛 
ば し 、 デ ィ ス プレ イ に 表示 し な いよ うに すず すれ が ぽ ょ よい と 司 い ます 。 末尾 
の 単語 は 当然 読み 出し 用 の 文字 変数 に 残り ます か ら 、 こ れ を 画面 に 表 
水 ず 政 江 よい の で 郊 、 読み 証し ルー カン て 和み 必 ツ ッ ダ を 入 秒 で 志 
け ば 、 登 録 し て ある 単語 の 総数 も 得 ら れ ま すね 。 

SN うそ て コー デル ジグ ル で みあ まし 1 は 信 。 


第 2 章 シー ケン シャ ルフ ァイル (1) 59 
























































ディ スク の デー タ を 読む 部 分 は 次 の と ぉ おり で す 。 前 節 で 学習 ずみ で 
す の で 、 す で 理解 で きる と 思い ます 。 


UPEN 「T)。 手 1。 "1:EITANDAT " 
IF EOF(1) THEN GOTO 119 デー タ が な けれ ば CLOSE 
INPUT 1 。A ま 。B ま 


じ = じ +1 カウ ンタ 
GUTO 115 
CLOSE ##1 





ご らん の よう に 、 行 番号 116 で デー タ を 読ん で いま す が 、 画 面 に 表示 
は し て いま せん 。A$、B$ に は 、 前 の デー タ が 追い 出さ きれ て 新しい 
デー タ が 代入 る れる と いう よう に 、 先 頭 の ダー タ か ら 末 尾 の デー タ ヘ へ 
と 仕事 が くり か えさ る れ 、 最終 的 に は 一 番 最 後 の デ ー タ が 残る こと に な 
bh 
カウ ンタ じ は カウ ンタ で 、 英 単語 と 日 本 語 を 1 組 と し て カウ ント し て いま す 。 
次 に 画面 表示 部 分 の プロ グラ ム を 示し ます 。 









120 PRTNT ュ ーーーー ー 改行 















121 LOCATE 7?,7:PRINT "マツ レヒ" / タッ ンコ ドニ ーッ > "s 合 中 
12ZZ LUCATE 7Z。8:PRINT "トウ ロク ソ 9 ス 9 =ー>7 Ci "uords 
123 PRINT ーーーーーーーーーーーーー 一 一 一 改行 

ト 


124 LUOCATE 12。10: INPUT "OK ナラ RET キ ー | ラ 
12 つ 9 じ LS 








画面 クリ ア 

C は 数 値 変 数 で すか ら 符 号 分 も 出力 され 、 こ こ に スペ ー ス を 

入れ る と 英 単語 と アタ マゾ ロ エ に な り ま せん 。 
これ で は ほ ば 完成 で びす が 、 も う 1 つ 大 切な こと が あり ます 。 を それ は 、 

この あと の メイ ン 処 理 で カウ ンタ C を 使っ て いま す の で 、 こ れ を ゼロ 

クリ ア し て わか な けれ ば いけ ね MC で すず 、。 







126 し =0 


を も し て 総 仕上 げ 。、 リ ナン パリ ッッ ダサ ザ 。 
行 番号 が だ いぶ ふぞろい で す の で 、 き ちん と つけ な お し て お きま し 


9 て 
NJjy 
Oo 


行 番号 112 を 行 番 120 と し 、10 き ざ み に リナ ン バ リ ング する と いう わ 
け で す 。 この プロ グラ ム を セー プ ブ す る の を お 忘れ な く …… ペ 
ブロ グ ウ タム り スト を 次 に 示し ます ず 、 





次 の 単語 を 入力 し て テス ド い て の で て だ きい 。 旬 フ レー クキ ー を うっ つかり 
私 た ち は 、OUTPUT モ ー ド か ら は じ め て 、 ち ょ うど 20 語 登録 し し て 押し て で し まっ た どか 、 


2 の の 辺 炎 世 の ーー セグ 回 


ああ 0 さま MS グラ ム が 上 上 朱 つ る で の た 


に つ / 


レ よ 
は と き は 、 必 ず 「CLOSE」 を 
PO ら S 七 8G ビ ・・:・: ホホ" スター きら a 七 ・・・・・・・・ サ "セキ ケイ レク トモ ー ド て 入力 し 、 


る EuQ@h も "グイ WO てい "オオ ルミ | リタ ー ン も で を 朝 し 4 だ 


ナー 
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選 * け デー タ の 修正 


〈 注 > 


これ で シー ケン シャ ルフ ァイル へ の デー タ 書 き 込 み ・ 追 加 、 そ し て 
語 み 出す ご と も で きる よう に な り ま し か 。 
し か し 、 こ れ で も まだ 不備 な 点 が ある の で す 。 それ は 何かと 申し ま 


す と 、OUTPUT エ モー ド 、APPEND モ ー ド で の 書き 込み の と き 、 


画面 で は 5 単語 を 1 組 に し て 表示 し 、 終 われ ば 次 の 画面 へ し いう よう 
に し て お り ま し だ が 、 単 語 は 英語 ・ 日 本 語 を ペア に し て を その つど 書き 
込ん で いま し だ 。 つ まり 、 キ ー イ ン し た スペ ル が 正しかっ た か どう か 
の 確認 を し て いま せん 。 

前 に も お 話し し まし た が 、 シ ー ケ ン シ ャ ルフ ァイル で は 一 度 書 き 込 
まれ だ た も の は あと で 修正 する と いう わけ に は まい り ま せん 。 で すか ら 、 
な お いっ そう 慎重 を 期し た いも の で す 。 苦労 し て 打ち 込ん だ デー タ の 
中 に ミス が あっ だ た だら 、 あ まり いい 気分 は し ませ ん ね 。 

を そこで 本 節 で は 、 修 正す る か どう か の ルー チン を 作っ て 確認 を うな 
が す よ うに プロ グラ ム じ し 2 が ま し ば 生 。 

「EITAN1」 に も 必要 な 部 分 が あり ます が 、 重 複 す る こと と 、 利 
用 度 は 「EITAN 3」 の ほう が 高い の で 、 こ ちら を 選び まし だ た 。 


ます 、”EITAN3」 の 行 番号 250 か ら 350 ま で は 作り な お る な けれ 
ば な り ま せん の で 、 削 除 を し ます 。 を 使え ば い 
いで すず す ' 航 。 


UELETE 250-350 


62 


ア 


火 の よう 師 な がり ます | 


Tile name = 一 > EITAN4 新しい ファ イル 名 
1984 .6。10 バ 
に 】 に | 【-】 ais 才 攻 - 四 還 還 ro『- 叶 = 還 野 1c1 c【=Jarel 
8 ツ @ ELEANA SO II 


MIUIH 40,20 : CONSOLE 0,20,0,0 

ウレ 

EUCAIE 10.B ) PRINN # ョ タ ノ ツ (ラミ 2 スリ 
UEEN 1 。 持 1。 15EITANDAT 

IF EOF(1) THEN GOTO 180 

INPUT 村 1 ,A,B ま 

じ = ニ し + 1 








5U1U 140 

じ LUSE 1 

PRINT 

BE 作 ETSERINT 7V ツ PO / ノ タコ ーッ 上 LE: 


LOEAIIE 7,8KPRINT ト 9H ロ 2 ソウ ス 29 = 一 > Cx uorda. 
PRINT 

LOCATE 12。10:INPUT "OK ナラ RET キ ー ヲ ラ ト " ウ ソ " "まま 
S “ [ 





行 番号 120 以 降 は サブ ルー チン に し ます 。 
まず 、 次 の ステ ー ト メン ト を キー イン し て くだ る い 。 


1 


116 ” last data read 
人 も の 





サブ ルー チン の 見 出し の 前 後に は 外 犬 覆 で お で と を 各 生 すく 


な が り ま すず す 。 まだ 、 サ ジル ー チ テン に は 必ず を つけ な けれ 


ば いけ ませ ん で し た 。 


2 っ 0 RETURN 


さぶ 衝 イ サ ダグ ルー ナン と し で の 形 が て さき あがり まし だ 。 を 
使っ て 、 こ の サブ ルー チン を 行 番号 1000 か ら に し まし ょ 2。 


RENUM 1000,115 


リナ ン バ リ ング を 実行 し た こと に よっ て 、 行 番号 1000 以 降 は 次 の よさ 
うに な り ま し だ ただ 。 途中 は 省 い て 前 後 び だけ 示し て あり ます 。 


し 


| レニ て jig 関 時 o『- b 中 電 四 ag - イ =『o 


に UEATEUEO2B 1 PETNT と "タツ ツリ フミ マ ス " 
OPEN "1'』#1。"1:EITANDAT " 


ド RMAUE 12)10.INEUUL OK 72 ウ | REN 2 ト 9/ KR 
人 S 
RE 「URN 





第 2 童 シー ケン シャ ルフ ァイル (1) 63 

















64 





次 に デー タ 入 力 の 部 分 を 作り ます 。 プ ログ ラム は 次 の よう に な り ま す 。 


SUSUB 1000 
DIM AA ま (10 ) ,BB ま (10 ) 
DPEN AA , 半 1。 1:EITANDAT " 
FOUR =1 TO 5 
INPUT エイコ" (オリ リ =99 ) " 3 AA まま ( 1 ) 
IF AA ま (T)="99” AND 1T=1 THEN GOTO 220 


IF AA* ま (1)="99” AND 1 く <>1 THEN N=I-1 
: 5USUB 2000 : GO0TO 220 
INPUT “ ニホン コ " BB$ ま ( 1 ) 
NEXT T : N=I-1 
5USUB 2000 : GOTO 150 
CLOSE : END 





まず 最初 に 行 番号 120 で 、 フ ァイル を 読ん で 末尾 の デー タ を 画面 に 表 
示す る サブ ルー チン へ 飛び ます 。 こ れ は 前 節 の ケー ス と まっ だ く 同 じ で す 。 
行 番号 130 で 配列 を 宣言 し て いま す が 、 こ れ は 、 入 力 し た 英語 と 日 本 
語 を それ ぞ れ 記憶 し 、 修 正 ル ー チ ン て 画面 に 表示 させ る だ め に 使う も 
の で す 。 こ の プロ グラ ム で は 5 つの 単語 を 1 モット に し て 考え て いま 
す の で 、10 個 以下 で すか ら 配 列 宣言 の 必要 は な い の で す が 、 あ と あと 
の こと を 考え ます ん た 、 泊 翌 づ リ て も ね いた だ た ほう が よい て も うぅ クウ 。 


| FOR-NEX 芽 行 番号 150 と 200 の 間 で 5 組 ご と の 単語 入力 の FOR-ーNEXT ル ー 


プ を 作っ て いま す 。 

ここ で 気 を つけ な けれ ば いけ な い の は 、 行 番号 190 で ルー プ か ら 抜 け 
出す きま 、 1 を マイ が AL し て NE に KM こせ て 3。 

迷 の よう な が イル クト ステ ー ト メン シン ト を や を 夫人 従 し て で み で 《 だ きい 。 





ちょ っ と 考え る と 、 こ の 例 の 場合 FORーNEXT ル ー プ か ら 抜 け 
出 た と き 、1 の 値 は 10 と 思い が ち で す が 、 実 際 に は 11 が 入っ て し まい 
ます 。 1 に 10 が 入っ て いる と 勘違い を し て I を N に 代入 し て 、 ブ ログ 
/ の (0 か 70 い 駅 ( 抽 9 麗人 NO 外 必 まま も る! 下 成 1 
較 が m グ する こと に な り ま ず すず が 、 で ん ル な こと に な っ る で し まい ます 。 

FOR 一 NEXT エ ループ を 抜け 出 た と き 、 あ る い は 終り の マー ク 「99」 
が 入力 され だ た とき 、 デ ー タ 修正 の サブ ルー チン へ 飛ば し ます 。 








Z000 


2010 


デー タ 修 正 の サブ ルー チン は 次 の と お り で す 。 


dat8& COFFGC 七 uu ロ DCFOu も 1ne 


2020 


Z030 
Z040 
2Z030 


2060 LOCATE 2,2XJ : PRINT 2%J-13" "AA ま (J) 
2070 LOCATE 2,2xJ+1 :PRINT 2xJi"  ":BB ま (J) 
2080 NEXT J 

2090 LOCATE 2,13 

2100 INPUT "シュ 9 ウ セ イ シマ スカ ( ッ ノ n ) " : ANS ま ま 

2110 IF ANS ま ="N' OR ANS ま ="n" THEN GOTO 2250 


2120 
2Z130 
Z140 
2Z1 つ 0 
2160 
Z170 
2180 
2Z120 
. 2200 
2210 
ZZZU 
ZZ30 
ZZ40 
ZZ っ 0 
ZZ6U 
2Z70 
ZZ8U 


し し 5 
EC 有 用 の 3 1 
FUR J=1 TU N 


PR INT "ニュ ウリ ョ ク テー タダ イチ ラン "“ 


LOCATE 2,13 
INPUT "内 "ンコ " ウ ラ ト " ウ ツ " (オリ リ =99 ) " : NO 
IF NO=99 THEN GOTO 2250 
K=(NOD+1) \ ギ 2 
IF NO MOD 2=0 THEN GOTO 2210 
LOCATE 2,14 
PRINT AA$ ま (K)』 "= 王 > " 』 : INPUT AA まま 
IF AA まく >"" THEN AA$(K )=AA$ 
LOCATE 2。14 : PRINT SPC(30) 
LOCATE 2。14 
PRINT BB ま (K) 5? "= 一 > "3 : INPUT BB*$ 
IF BB まく >"" THEN BB ま (K )=BB$ 
LOCATE 2,14 : PRINT SPC(30) : GOTO 2120 
FOR J=1 TO N 

PRINT 1 AA ま (J) 3" 。" BB ま (J) 
NEXT J 
し LS 


GU0TO 2120 


RE TURN 






















































この サブ ルー チン へ ジャ ング "し て きま す と まず 、 画 面 の 一 番 上 に 、 
「 ニ ュ ウ リョ ク デー タ イチ ラン 」 と い 多 生出 し を 艇 示 る せま す 。 
を し て 次 の 行か ら 、 私 た ちがい ま 入 力 し た 英 単 語 と 日 本 語 を 頭 に 通 
し 番号 を つけ て 表示 し ます 。 こ れ は 2050 行 か ら 2080 行 の ルー プ で 行っ 
4 本 0。 

入力 デー タ が 表示 し 終り ます と 、 画 面 の 一 番 下 に 、 修 正す る か どう 
か の 確認 メッ セー ジ を 表示 し ます 。 

修正 が な けれ ば 、2250 行 へ て ジャ ング し 、 デ ー タ を デイ スク に 書き 込 
ん で 、 こ の サブルーチン か ら 6RETURN で す 。 
デー タ 修 正 の 必要 が ある と き は 、 「 バ ン ゴ ウ ラ ヲ ラ 


ドウ ツル 沈 硫 
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円 マー ク (\) 


MOD 
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リ テ 9 9 )」 と いう メッ セー ジ が 現れ ます か ら 、 修 正 し た い デ ー タ の 頭 
に つい て いる 番号 を 入力 し て リタ ー ン キー を 押し ます 。 修正 を 終り た 
い 場 合 に は 「99」 を 入力 し て 《 だ きい 。 「9 9」 が 入力 き 衝 な と 、 

2250 行 へ ジャ ンプ し 、 デ ー タ の 書き 込み を 実行 し ます 。 


き て 修正 の 場合 で す が 、 た と えば 5 つの デー タ を 入力 し て この サブ 
ルー チン へ 飛ん で きた と する と 、 英 単語 、 日 本 語 に 通し 番号 が つけ ら 
れ 、 次 の よう に 画面 に 表示 きれ ます 。 


1 station ーーA A $( 1 ) の 内 容 
エキ ーーB B $( 1 ) の 内 容 
3 beach ェ ー 一 人 AA 名 (2 ) 
1 ハマ ベ ーーー 詳 本 : 寺 【 ) 
5 ship ーー 一 A A $( 3 ) 
B フネ ー 一 BB $( 3 ) 
フ tlger ーー A A $( 4 ) 
日 トラ ーーB B $( 4 ) 
bird ーーA A $(5) 
坦 らい ト か AA 0 倫 和 も (5 


さこ 定 で 修 医 し た い 褒 の 間 つ いで 乱 る 番号 を 入力 ます か ら : それ 
が 変数 NO に 代入 る れ ま す (2130 行 )。 し か し 、 こ の 番号 は 配列 の 添字 1 
ンー.5 と は うま く 計 記し で 0 まま ん 。 

を そこで 、2150 行 の 算式 


K= (NO0+ 1 ) \ ら 


に より 、 入 力 さ れ た 番号 に 対応 する 配列 の 添字 を 計算 し ます 。 
円 マー ク 「\ 」 は 整数 除算 の 商 を 求め る も の で し た ね 。 こ の 計算 式 に 
よっ て 1 一 10 の 整数 の 商 は 次 の よう に な り ま す 。 


整数 1 選 紀 242456 フ 78 は 8 10 
簡 【K) 1 本 太紀 4 2 后 B 


これ で 、 う まく 配列 の 添字 に 対応 きせ る こと が で きま し た 。 

し か し 、 こ れ だ け で は まだ 、 英 単語 の 修正 か 日 本 語 の 修正 か の 判断 
が て きま せん 。 

この チェ ッ ク を 2160 行 で 行っ て いま す 。MOD は 整数 除算 の 剰余 を 
求め る も の で す 。 つ まり 、 入 力 さ れ た 番号 を 2 で 割っ て その 余り が 0 
な ら 日 本 語 の 修正 (配列 は BB$) 、 1 な ら 英 単語 の 修正 (配列 は A 





A ま ) い Me みさ 制 性 本! あ ま 深 。 

2170 一 2200 行 が 英 単語 の 修正 、2210 一 2240 行 が 日 本 語 の 修正 で す 。 
修正 方 法 は 、 間 違え た 語 が まず 表示 る れ ま すか ら 、 そ れ を 見 な が ら 
正 も が ツー 大 過す る より DE が か る で ゆい 部 ず 。 

1 語 の 修正 が 終る と それ を PE 隊 CAL 
だ び 番 号 入 力 に 戻り ます 。 

修正 作業 が 終っ た ら 、 デ ィ イス ク に デー タ を 書き 込ん で 、 こ の サブ ル 
ーー チン メ が か 5 戻り ます 。 


プロ グラ ム の 実行 


を れ で は し て か ら (PF 3 ) キ ー で 走ら せ て み ま し 
ょ う 。 最初 に 次 の 初期 画面 と し な り ま す 。 


7m の 2Z の 4 ガ プラ マス 


マヒ" / タン コーー> uo1 
トウ ロ 2 ツ 9 ス 9 = 一 > 20 uords 


KA RET キ だ 20 トリ り / 2 還 





キー を 押す と 単語 入力 モー ド に な り ま すか ら 、 次 の よう に 5 つの 
単語 を 入力 し て み ま し ょ う 。 beach を 間違え て beech と 入力 し て し 
まい まし た だ た 。 こ 必 は 修正 ルー チン で な お すこ と に し ます 。 


(オリ リ ニ 99)Z = ョ ta 人 1on 
コカ ンコ | 7 生 導 ROSE Sb 
(オリ リ = ニ 99)7Z beech 
NVP MA AI お 
(オリ リ = テ 99)?7 ship 
MVSAGHNNOUI プ 6 


(オリ リ ニ ツ 9 ) 7 上 1G6F 
NII の 406 プ 

(オリ リ = テ 9 ワ 9)7Z bird 
ニホン ンコ" 7 圏 
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bird に 対す る 日 本 語 「 ト トリ 」 を 入力 し キー を 押す と 画面 は 次 の 
うに がり は 学 。 


9 ワリ コラ の の この 0 4 チワ プン 


1 
レ 
人 
4 
W 
6 
7 
5) 
フ 
1 


シュ リセ イ シマ スカ ( ッ /n ロ 7 画 





beeeh を 修正 し な けれ ば な り ま せん か ら 当 然 「y」 を 入力 し ます 。 
する と 画面 の 下 の ほ うに 番号 入力 の メッ セー ジ が 表示 る され ま す 。 


ハンコ 2 2 トド ウノ (オリ リ テ 92 ) 7 壮 





ここ で 「3」 を キー イン し リタ ー ン キー を 押し ます と 、 次 の よう に 
間違え て 入力 し た 単語 が 表示 る れ ま すか ら 、 カ ー ン ソル 位置 か ら 正 し い 
デー タ を 入力 し て リタ ー ン キー を 押し て くだ る きい 。 


ンコ ソラ トド ト 2/ (オリ テッ アツ) / 3 


beech = 一 > ? 副 





修正 デー タ を 入力 する と ふ だ だ び 番 号 入 力 に な り ま す が 、 こ れ で 修 
正 作業 を 終り た けれ ば 「9 9」 を キー イン し ます 。 する と ディ スク へ ヘ へ 
の デー タ 書 き 込 み が あ り 、 画 面 は トク リア され て 英 単 語 の 入力 に な り ま 
す 。 私 た ち は こ れ で 終り に し ます の で し ませ ゆう 。 

き あ 、 う まく いっ た で し ょ うか ? デー タ 読 み 出 し の プロ グラ ム を 
R UN させ て 確認 し (て みて くだ きい 。 | 


RUN “EITAN2 “ 
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od 


『 
上 
1 

。 





ーーーーーーーーー デ ーー ここ =- ーーーーーー デ ーー 


ーーーーーーーーー フ ーー ニニ ーー ーーーーーーーーーーー ーー ーーーーーーーー デ ーー 一 


選 ヨ メニ ュー プロ グラ ム を 作ろ う 





以上 、「 英 単語 練習 プロ グラ ム 」 を 例 に と っ て シー ケン シャ ルフ ァ 
イル ん に つい て 読 明 し て きま し た 。 

アウ トブ プッ トモ ー ド 、 イ ンプ ブッ トモ ー ド 、 ア ベン ドモ ー ド 、 い か が 
て じ 溢 かず 万 つっ だ ほど が な が ず か し (引か っ だ と い まず 。 

れれ ま 昼 枯 汰 が ドウ イジ 0 の デリ スグ に セー アゲ し か プログ タム 
ファ イル は 炊 の で ず 5 


EITAN1 
ETITAN2Z 
EITAN3 
EITAN4 


を そし て 、 ド ライ 2 の ディ スク に 書き 込ん ピ デ デ ー タ ファ イル は 
EITANDAT 
と いう 、 英 単語 と 日 本 語 で 構成 され だ も の で し た 。 
き て 、 今 後 あ な た が これ ら の プロ グラ ム を 使 お うと する 場合 、 い ま 
の まま で す ほ L、 ど の アグ ログ クム が と ん な 目的 で 使わ れん れる が を 外 ん で お 
いて 、 次 の よう な 操作 に よら な けれ ば な り ま せん 。 


RUN “EITAN1 “ 


RUN “"EITAN2 


RUN “EITAN3" 
RUN “EITAN4 " 





ファ イル 名 を 打ち 間違え て 





と いう エラ ー メ ッ セ ー ジ が 返っ て き て ギク ッ と し だ り 、 い や 、 を それ は よ 
り ょ た に が か がく 《 く キー イン も めん どう で す 。 も う 少 し 楽 を する こと ば で き な 
OL 1 うか 7 
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人 間 は 1 つの こと を マス ター する と 、 を の こと を も う 少 し 手 を か け 
が いて て さき な が いも の が と ムシ の ざい 教え 方 を し ます 。 し か し 、 ご こ 出 細 M 
お お い に け っ こう で す 。 こう いっ た 欲 が で て き て は じ め て 前 進 し 仙 敵 ' 





く の で すか ら oi4) o 
私 だ た ちゃ も お お い に 思 い を めで ら せ ま し ょ 2 う 。 M 


メニ ュー プロ グラ ム その だ た だめ に は 、「 英 単語 練習 プロ グラ ム 」 を 管理 する メニ ュー プロ 
「 グラ ム を 作っ て し まう こと で す 。 

メニ ュー プログ ラム と は 、 画 面 に いろ いろ な 仕事 内 容 を 表示 させ 、 

その 中 か ら ど れ か 1 つ を 選び 、 希 望 す る 仕事 を 処理 し て いく も の で す 。 請 

た と えば 、 メ ニュ ー 画 面 を 次 の よう に 構成 し ます 。 








川 ご の よう に し て お きま すら とら 、 選択 し た 番号 に 万 じ て 、 


1 => RUN “EITAN1 “ 
2 = デ > RUN “EITAN2 


| ーー> RUN "EITAN4* 


と いう よう に 、 そ れ ぞ れ の ブログ ラム が 自動 的 に 実行 る きれ る わけ で す 。 
省 を れれ で て は きっ もそ て コー ディ ング ゲ し て み ま し ょ ゅ う 。 
まず 出だし の REM 文 か ら 。 


ーー 





†ile name = 三 > MENUO1 
19284 。6。20 


menu P ビ ogFam Tor ENG5LISH uords 
「 =ave MENUO1 “ 
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次 に 初期 設定 を し て お きま す 。 


100 MIDTH 40,25 : CONSOLE 0,25,0,0 
1310 DEFINT AAー/ 整数 宣言 


120 し L5 
130 


行 番号 100 の WIDTH 文 で 画面 の スク ロー ル 行 数 を 25 に し て あり ま 
す が 、 こ れ は メニ ュー 画面 の 見 出し を ケイ 囲み に する だ た め に この よう 
に し まし た 。 と 申し ます の は 、 ス クロ ー ル 行 数 が 20 で は 行間 が あい て 
し まっ て ケイ が つなが ら な いか ら 6 です 。 

次 に 行 番号 110 の DEFINTT 文 で す が 、 こ れ は 変数 の 型 宣言 で す 。 
並 通 この よう に 型 の 宣言 が され て いま せん と 、 変 数 は すべ て 上 単 精度 型 
と みな され 、 処 理 時 間 に 大 き な 差 が で て きま す 。 数値 を 扱う 場合 も 整 
数 が 主体 で し た か ら 、A 一 Z で 始ま る 変数 を 整数 宣言 し て お いて 、 単 
精度 、 倍 精度 扱い の 変数 に だ け 「!」「 革 」 あ つけ て お け ば 能率 的 で す 。 
ある い は 、DEFSNG、DEFDBL な ど を 使っ て 、 あ ら だ に 冨 言 
し 泊 二 し て WM まい て し も よう 。 「 

この プロ グラ ム で は あま 5 必要 あり ませ ん が 、 処 理 時 間 の 短縮 と い 
う 意味 で 、 習 慣 づ け て お い だ ほ う が よ いも の の 1 つ で す 。 


メニ ュー は DATA 文 で 


画面 に 表示 する メニ ュー は DATA 文 に し ます 。 


1000 

1010 “ data area 
1020 “ 

1030 DATA 4 


1040 DATA タン コ " / カキ コミ 

09U JHAFRN 20J  / 7 の 
1060 DATA タコ" ノ 

1070 DATA オォ 9 リ 


行 番号 1030 の 数 値 4 は 、 メ ニュ ー の 数 を 表し て いま す 。 を そし て 、 こ 


の 値 を RE AD 文 で 最初 に 読ん で 変数 に 入れ て お け ば 非常 に 便利 で す 。 


こ 人 ゆるり は あと で 説 昌 し ます 5 

行 番号 1040 か ら は デー タ で す 。 1 行 1 行 に し な いで 、 各 デー タ を っ コ 
迷人 捉 らら で こき 0 が 20 も わり が ば 6 者 いて ゆ 玲 史 い きま 
立 融 記 だ だ 、 くく の 合 夫 見 。 この よ の GNU まし 

文字 列 の デー タ の 前 後に 意味 の ある スペ ー ス が ある と か 、 デ ー タ 中 





D 選び ます ま NT 


DEFSNG 
DEFDBL 


DATA 文 
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に コン マ 、 ピ リオ ド な ど が 含ま れる 場合 は 、 ダ ブル ク ォ ー テ ー シ ョ ジ 
で その デー タ を くく っ て くだ さい 。 ここ で 扱っ て いる デー タ の 中 の 上 較 
は 、 ピ リオ ド で は な く ナ カ グ ロ で すか ら 、 こ の まま で き し つ か え ぇ あ ヵ ! 議 
ませ ん 。 


140 READ MENU 
1 っ 0 DIM M も (MENU ) 配列 の 


160 FOR [=1 TO MENU 

1 70 READ M$ も (TI) 配列 に メニ ュー を 読み 込む 
180 NEXT I 

190 “ 





140 行 で 変数 MENU に READ 文 で メニ ュー の 数 を 読み 込み ます 。 


REDA 廊 次 に 、 そ を それぞれ の メニ ュー を 配列 に とり こみ ます の で 、 配 列 の 宣言 


を し な けれ ば な り ま せん 。 行 番号 150 で 配列 を 宣言 し て か ら 、READ 
文 で メニ ュー を 読み ます 。 


も 5 う お わか り い だ ただ けた と 思い ます が 、DATA 文 の 先頭 に デー タ 
数 を 入れ て お く と 、 こ の よう に 、 配 列 宣言 、FOR-ーNEXT 丁 文 の ル 
ー プ 回 数 な ど が 、 変 数 を 使っ て 自動 的 に 設定 どき て し まう の で す 。 

も し デー タ 数 を 変数 に 代入 し て お きま せん と 、 プ ログ ラム の 初期 設 


DIM 文 " 定 部 分 で DIM 文 を 入れ て お か な けれ ば な り ま せん し 、FOR 文 に も 数 
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値 を 入れ な けれ ば な り ま せん 。 た と えば 次 の よう に ……。 


115 [DIM M 和 (20 ) < 注 > これ は キー イン し な いで くだ さい 。 
116 


160 FOUR =1 TO 4 
LM READ M$ も (1) 
180 NEXT 1 





メニ ュー 数 を 使っ た FOR 一 NEX 丁 文 は 他 の 部 分 で も で て くる と 
思い ます し 、 メ ヌメ ニ ュー を 追加 する と き な ど に 、 い ちい ちこ の 数 値 を 修 
上 正 し て お か な が けれ ば な り ま 導 。 竹 い ブ ログ ラム A で し た ら 5、 手間 は が 
か が かり ませ ん が 、 長 て く な る と けっ こう めん どう が も の で す 。 

また 、 最 初 の 説明 の ょ うに 、 変 数 を 使っ て 配列 宣言 し た ほう が 、 メ 
モリ を 有効 に 使え を る の で す 。 

これ は ディ スク 操作 と は 関係 ありま せん が 、 プ ログ ラミ ング の 定石 
し 定本 ん た で て 板 本 ま DOA 1 

















メイ ン 部 分 の ブ プログラム 


メニ ュー を 画面 に 表示 し て 、 仕 事 番号 を 選択 きせ 、 希 望 の プロ グラ 
ム を 実行 す る 部 分 で す 。 プ ブロ グラ ムリ スト は 次 の と お り で す 。 


LOCATE ?,4 : PRINT "r"i 

PRINT STRING ま (21 "ーー")』 "っ" 

LOCATE ?,5:PRINT "1 エイ タン コ " メニ ュー ブフ 5 ログ "ラム 1 
LOCATE 7,6 』 PRINT "に ji 

PRINT STRING$(21 "ーー" うっ 


見 出し の 表示 


FOR 1=1 TO MENU 有人 の 12 
LOCATE 8。7+1 : PRINT er lo 
NEXT 1 


LOCATE 11。13 : INPUT "input job number "sNO 
LOCATE 8。15 』 PRINT M 和 (NO) 

LOCATE 18。16 : INPUT "OK (y/n) "3Y ま 

IF Y も ="N'" OR Y ま ="n” THEN CLS 』 GOTO 200 

UN NO GOTO 360 ,370 380 , 320 仕事 番号 に 対応 し た 


行 番号 へ 飛ぶ 


RUN "EITAN1 " 
RUN "EITAN2"“ ーー プロ グラ ム を RUN 
RUN "EITAN4 " 


じ LS 
LOCATE 15。7 : PRINT . ラ ヨコ " ト う 4 オ 9 リ マス 
END 


行 番号 200 か ら 240 ま で は 、 見 出し の 表示 で す 。 見 出し を ケイ で 巻く 

と 体裁 が た と の いま す 。 

ここ で は LOCATE 文 で カー ソル 位置 を 指定 し 、PRINT 文 で 画 LOCA 正 EE 文 
面 に 表示 し て いま す 。STRING$ 関 数 の 書式 は 次 の と お り で す 。 STRING$ 関 数 


STRING$(21 "一 ) 
文字 また は 数 値 


STRING ま (21 ,142) 





出力 する 個数 
この 例 は 2 つと も 同じ 結果 を 出力 し ます 。 
克 字 指 定 の 場合 に は 、 ダ デル ク ォ 〒 テ ーション で て で くっ て くだ すい 。 
また 字数 は 1 字 し か 有効 で は あり ませ ん か ら 、 3 文字 入れ て も 最初 の 
1 字 だ けが 出力 る され ます 。 @⑯「 一 」 は マイ ナス 記号 で は 
数値 指 定 の 場合 に は 、 そ の 値 が 0 一 255 の 範囲 に 限ら れ 、 こ れ を キャ ウリ に レン 0 
ラク タコ ユー ド と みな し て 対応 する 文字 を 出力 し ます 。 この 例 で ' 一 」 の 
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キャ ラク タコ ー ド は 149 で す 。 

行 番号 260 か ら 280 で メニ ュー を 画面 に 表示 し ます 。 

ここ で も MENU し と いう 変数 を FOR 一 NEX 華 文 に 使っ て いる こ 
まだ 津 枯 し て で だ きい 

まだ 、LOCATE 文 の 位置 指定 に ルー プ 用 変数 1 を 使っ て いま す 。 
これ も か な り 便 利 な 方 法 で す 。 

行 番号 300 で メニ ュー 選択 を うな が し 、 行 番号 320 で は 選択 し た メニ 
ュー で OK か どう か 確認 きせ ます 。「 ノ ー」 で あれ ば も う 一 度 200 行 へ 
飛ば し 、 や りな お し で す 。 


O 氏 で し た ら 、340 行 の で 、 メ ヌメ ニュー 番号 に 対応 し 
た 処理 へ 飛び ます 。 

行 番号 360 か ら 6380 ま で が 、 前 に 説明 し た プロ グラ ム 実 行 の ステ ー ト 
が ン 当 Mr 

る さあ 、 それ で は し て か ら RUN き る 
せ て みき る 届 U よ う 。 


の 0An コ つう (70 グフ 0 


クン |  / キミ 
PPAMG に ン 00P の Mg NII e 
ry.49 の / 


1nPu も -job number ? 2 


タン コ " ノ ヨミ タ * ラ ・・・・・・・・ 2 
OK (y/n)? 琴 





前 ペー ジ の 表示 画面 は 、 仕 事 番号 2 を 選択 し た の で 、 を その 確認 を う 
あじ CN る も と この あ で す 。 も し よかっ た ら 、 小 廊 字 の y を 和久 殺し て みみ 
て 《 だ さい 。 な つか し い 「 英 単語 読み 出し の プロ グラ ム 」 が 走り 出し 
まう っ ざ う で て し だ か の まま % い を まあ し たか? 

キー イン に ミス が な けれ ば 必ず 動く は ず で す 。 
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ここ て 注意 を 1 つ 。 

メニ ュー 選択 の 際 、 1 番 を 選び ます と 、 こ れ は デー タ 書 き 込 み 用 プロ 
グ タ ラム を 理 IN き せる こと は が な が り ま すず 中 、46 ペ ー ジ で 読了 明 し だ よう に , 
すでに 初回 の 書き 込み が すん で いま す と 、 


File Already xlstS 


の エラ ー に な り ま すか ら 注 意 し て くだ さい 。 
ここ で あう 2 必 少 央 し で プク グラ ンク の ダラ ネッ ク を 学ん で 
きまり NN 


引 寺 続き 他 の ブ プログ ラム を 実行 し た い 


私 た ち が こ の 節 で 給 ん で きた プロ グラ ム は 。 だ と えば 「 単 語 追加 」 の 
メニ ュー を 選択 し ます と 、 追 加 処 理 が 終っ と プロ グラ ム は END に な 
り 、 追 加 し ただ データ を 読み 出し た いと き は 、 も う 一 度 メ ニュ ーブログ 
ラム を ロー ド し て RUN る せな けれ ば な り ま せん 。 

価 か よい 方 波 ほ だい でしょ うか 7 | 
あり ます 、 あ り ま す 。 そ れ ぞ れ の プロ グラ ム に メニ ュー へ 戻る ステ 
ー ト メン ト を 折り 込ん で や れ ば よい の で す 。 

「 書 き 込 み 」「 読 み 込み 」「 追 加 、 の 3 つの プロ グラ ム の END が ある 
行 衝 号 は 次 の と お り で し が だ 。 


EITAN1 => 210 END 


EITAN2Z = ご デ > 240 END 





EITAN4 = デメ 。 220 CLOSE : END 


で すか ら 、 こ れ ら の END 文 を 削除 し て (CLO SE 文 は 残し て おく )、 
この うし じ し ろ に メニ ュー へ 戻る ステ ー ト メン ト を 書く こと に し ます 。 デ プ 
ログ ラウ みあ 人 ペペ m ホ シ ジ に 示し ま び 。 

9 記 W ウ マン シンド て りか が み リ アア し じ て で が か ら キ アイダ で 6 お だ まき 
す が 、 を その 前 に メニ ュー プロ グラ ム を セー プ ブ し た か どう か を 確認 し て 
くだ さい 。 

し つこ いよ ょ う で す が 、 最 初 の う ち は 、 せ っ か く 〈 入 力 し た 新しい プロ 
グラ ム を セー デブ し な いう ち に 他 の プロ グラ ム を ロー ド し て 江 ま っ た と 
か 、NEW を 実行 し な いで 他 の プロ グラ ム を 入力 し て し まっ た と か の 
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ミス を お か し 後悔 する こと が よく あり ます 。 


プ 


じ LS 
LUCATE 10,6 : PRINT "ホカ / シコ " ト ヲ ミ マ スカ" 
: PRINT “( ヶ ッ /n ) ?" 


LUCATE 15,.8 
Y ま =INKEY ま 
IF Y ま ="” THEN GOTO 340 

IF Y ま ="Y" OR Y ま =" ッ " THEN RUN "MENUO1 
END 





簡単 な ゲロ グラ ム で すね ゎ ね ? 

行 番号 320、330 で メッ セー ジ を 表示 し て いま す 。 

行 番 330 の PRINTT 文 の と ころ は INPUT 文 を 使っ て も いい の で 
す が 、 新 し い 知 識 を 吸収 する と いう 意味 で 、 あ えて PRI NT 文 に し 、 
340 行 で を 使用 し まし た 。 

この 関数 は 何 が キー 入力 が ある まで 、 行 番号 340 と 350 の 間 を ルー プ 
し て いま す 。 ど の キー で も よい で すか ら 、 キ ー が 押 き れる と 行 番 号 360 
の 持ち て いき ます 。 

さあ 、 そ れ で は 


次 の 手順 で 行っ て くだ きい 。 


SAVE "MRG",A アス キー セー プ ブ する 


Read ッ 
LOAD 「EITAN1 " 多国 外 ラ だ 由 中 ボド する 


Read ッ 

210 210 行 を 削除 

MERGE 「MRG' 「M R G」 を マー ジ し て つなげ る 
に イータ 【e bi 

SAVE 「EITAN1' 完成 し た プロ グラ ム を セー プ 


Read ッ 
引 


まっ ね ( 峡 じ 所 oO の IO も キー が 
を 行っ て くだ さい 。 無 事 終っ て 「MRG」 が 不要 に な り ま し た ら 、 削 除 
し や 救 きま も より 人 攻 ま UL 光 他 うめ ひので も お 和 。 


KILL “MRG" 


(PF 2 ) キー で リス ト を 表示 させ て みて くだ さい 。 


†ile name = 一 > EIIAN1 
1984。6。10 

らら ueGn モ 1al da 上 ta いじ Fi も e 

s=ave UiEITAN1' 


MEUIH AN と /0 7 し UNSUUE、 0)2U,U, 
Ei ら ( 

DPEN 0" , 必 1。"1:EITANDAT" 
INPUT エイコ" (オリ リ ミ 99 ) 「: ム ま 
1F A ま ="99 | THEN GOTO 200 
INPUT ニホン コ " "1B ま 
PRTINT 1 。 放 まま ) 。 1B ま 

し = じ +1 

[上 性 つ INENS し 0 LLS 
GOTO0. 130 

じ LUSE 持 1 


じ に S 

MMCANE MIUN の 6 ) PRKINI 4 / うう | 
AIE 1 コ J8 ) PRINL (yh ) 
Y ま =INKE Y ま 

IF Y$=" | THEN GOTO 340 

IF Y$='Y OR Y$= ッ IHENRUN NMENUO1 
END 


ヲ ミ マ スカ 


「 ト 
の 





行 番号 300 以 降 が だ うまく マー ジ き され だ よう で す 。 


これ で この 章 は 終り で す 。 次 章 で は 電話 帳 プ ログラム を 例 に と っ て 、 
も もう少し シー ケツ ジャ ヤル フアナ アザ オル に 翌 槍 あ まう 人 し まし ょ よう 。 

な お 、 次 ペー ジ に を 
の せ て お きま す 。 
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和英 単語 練習 メニ ュー プロ グラ ム 








シー ケン シャ ルフ ァイル II 








Nd G ゆ SD 
は ・| こ オー フロ ジグ ジム 
前 章 で は 「 英 単語 練習 プログ ラム 」 を 例 に と っ て シー ケン シャ ルフ 
ァイル の 扱い 方 に つい て 説明 し て きま し だ た 。 
この 章 で は 、 電 話 帳 ブログ ラム を 例 に と っ て 、 シ ー ケ ン シ ャ ルフ ァ 
イル に つい で 、。、 る う 2 少し 天 強 し て お きま し ょ う 。 
電話 帳 プ ログ ラム と は 、 名 前 を 入力 する と を その 人 の 電話 番号 を 表示 
し て くれ る も の で す 。 考え ぇ 方 は 英 単 語 の 場合 し まっ だ 〈 く 同じ で す が 、 
みな きる ん に も う 少 し 慣れ て いた だ だ くだ めし と 、 検 索 テ アク ニッ ク が あり ま 
すず の て まり あげ る さて 四 区 し まだ まだ 、 グ リル ツタ も 全て みる 86 
AS : 導 お 誠 0 
ここ て 扱う 仁 事 は 次 ゆめ 5 つ で す 。 
⑯ 電話 帳 フ ァイル の 作成 一 この プロ グラ ム は 新規 の ファ イル 作成 
の と きのみ 使用 し ます 。 
@⑳ 電話 番号 の 追加 
⑯ 電話 番号 の 修正 一 一 すでに ファ イル に 書き 込ん で ある デー タ を 修 
叶 
《⑳⑩ 電話 番号 の 検索 
⑯⑩ 電話 番号 リス ト の 印刷 


メニ ュー 画面 は 次 の よう に レイ アウ ト し まし た 。 


カリ ウリ チョ リウ  / ル (HH ク 2 フ A 


員 選 5 F 1 トド E / リク セイ 
TEL No ノ / 
NE 還 ONOY 
トド NO / 
HE 旨 R ISME 


1npu セ も job number ? 1 


EE PE よ LE  / サク セイ 
UK (y/n)? 時 
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メニ ュー ブロ グラ ム は 、 前 章 の メニ ュー ブロ グラ ム の 部 分 的 な 手 直 
し ょ DATA 文 の 追 明 に よっ て 作 有 する こと に しま ず 。 LOAD ロ マ 
ンド で 「MEMU01」 を ロー ド し て くだ さい 。 

まず 最初 の 部 分 は 、 フ ァイル 名 を 変更 し て 次 の よう に し ます 。 


10 “file name = 一 > MENUO2 
” 1984 。6,20 1 OM 
” menu pFrogram for phone number 

40 “ save "MENUO2“ 

et MM 和 

100 MIUIH 40.235 》) CUNSULE 0.25。0。0 

110 DEFINT ム ぬ -Z 

1200 し LS 

CI 間 


こざ は ファ イル 名 と EM 光 の 内 容 を 変 ん る だ け で まい で し ょ ゅ う 。 
次 に メニ ュー 項目 が 2 つ ふ えん まし だ た 。 メニュー 内 容 も 変わ る わけ で 
すず すか が か がら 、 DATA 又 外人 作 つて で ね 守 きま あま し ょ すう 。 











1000 

1010 “ data area 

2 

1030 DATA 6- 

1040 DATA TEL FILE / サク セイ 


10350 DATA 

1060 DATA TEL No / シュ ウ セ イ 
1070 DATA TEL No / ケン サク 
1080 DATA TEL LIST / イン サウ 
1020 DATA オウ リ 





デー タ 数 増加 に と も な っ て 、 行 番号 340 行 以 降 に ステ ー ト メン ト の 
追加 ・ 変 更 を し ます 。 


UN NOU GUTU 360,370,380 , 381 , 382 , 320 
| 
RUN “TELNO1 “ 追加 
RUN “TELNO2 “ 
RUN “TELNO3" 新しい プロ グラ ム フ ァ イル 名 


RUN “TELNO4 

RUN “TELNO5" 

し 5 

LOCATE 15,7 : PRINT “ラコ " ト ヲ ラ オウ リマ ス ” 
END [ 
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2 つよ えた メ ニュ ーー に 対す る ブロ グラ ム の 実行 ステ ー ト メン ト 軸 
行 番号 380 と 390 の 間 に 入 れ ま す 。 を し て 
し や で りき まり RW 


RENUNM 320 , 381 


RENUM 1000,440 


ああ は 、 
メニ ュー が 2 つよ ふえ まし だ た か ら 、 行 番号 200 が 上 症 較 
ま て の LOCATE 文 の 縦 座標 位置 を マイ ナス 2 し て 、 2 行 分 上 べ 議 
示す る こ ょ と に し まし ょ う 。 カー ソル 移動 キー を 使っ て 5 箇所 を 修正 貴 
最後 に キー を 押し ます 。 


200 LOCATE 7, 較 : PRINT "rj: 
210 PRINT STRING も (21 。 一 )? 
220 LOCATE 7, 計 PRINT 「| 
230 LOCATE 7/, 英 : PRINT 
240 PRINT STRING ま (21 一 )5 
2 絹 

Z60 FUR =1 TO MENU 

2Z70 LUCATE 8, 記 +1 : PRINT NM$(1) 
2Z80 NEXT I 

220 


人 
テン リ チ ョ ウ フ " ロ ク " ラム 3 


』 委 


こ 心 で メニ ュー ブロ グラウ ラム は 完 記 で す 。 ア プロ グラ ムリ スト を 次 に 消 
し ます 。 


Tile name = 王 > MENUO2 
1984.6,20 (2 
menu PCOgFam †oFr phone number 


ぉ =ave "MENUO2 


レコ 
と 
〆 
と 2 
ャ 4 


100 MIDTH 40,25 : CONSOLE 0,25,0,0 
110 DEFINT A-Z 

120 CLS 

480 ( 

140 READ MENU 

150 DIM M$ ま (MENU) 

160 FOR 1=1 TO MENU 

170 READ'M$*(1) 

180 NEXT 1 

190 < 








実行 し て みた だ たい 方 は 、360 行 か ら 400 行 ま び の ステ ー ト メン ト を 次 の 
AMWS KIMIMUXE し で RUNS 世 て あみ で くだ きめ の 。 


アボ ポス トロ フィ を 入れ て REM 文 に し ます 


7 
360 “RUN “TELENO1 “ 


正常 に 動い た ら ア ポス トロ フィ を と っ て セー プ ブ し て お きま し ょ う 。 


SAVE “MENU02 
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電話 帳 フ ァイル の 作成 


電話 帳 フ ァイル の 作成 プロ グラ ム は 、 デ ー タ を 次 々 に 入力 し 、 を 魏 
を ディ スク に 書き 込め ば よい わけ で すか ら 、77 ペ ー ジ の プロ グラ の が 詞 
ちょ っ と 手 を 加え れ ば で き て し まい ます 。 

OUTPUT モ ー ド で シー ケン シャ ルフ アイ ル を OPEN し 、 語 
PUT 文 の メッ セー ジ を 変え れ ば よい で し ょ う 。 

炎 の よう が ググ ウパ ガタ ム に な が な り ま す 。 





Tile name 一 

ホン 4 。 610 
equen モ tial data ぃ F1 te 
= を tW 細 [ELNOU1 


MIDTH 40,20 : CONSOLE 0,20,0,0 
CLS 

OPEN 

INPUT 

_TF A*="99" THEN GOTO 200 
INPUT " 

PRINT せ 1,A$: 

C=C+ 1 

IF C=5 THEN C=0 : CLS 
_GOTO 130 

CLOSE 1 


じじ に S 

LUCATIE 10,6 : 

MOCAIE 1558 7 PKINT ( 4 2 7 
Y=INKE Y 

IF Y= "THEN GOTO 340 

IF Y$="Y OR Y ま = ッ .THEN RUN | 
END 


PRKINI ホカ / シコ 」 トワ 2 トル? 上 





変更 し だ ょ ころ は 、 上 の 画面 で スミ アミ の 部 分 て すず す 。 あ と は すべ で 潮 


で の ま ま て ず 。 
まだ 実行 し な て て けっ こう で す 。 デ ー ズ タダ 読み 出し の 分 て 合わ せ て 個 
うに し あし ょ よう) 地 立 が 究 誠 教 200 水 人 が en 4 


SAVE “TELNO1 " 








3・d デー タ の 追加 





この 部 分 も 、 前 章 の 「EITAN4」 を 手直し し て 使え た う で すね 。 
この 節 で は 、 プ ログ ラム を 一 部 修正 し て 流用 する 場合 の 方 法 を まじ 
ぇ て 説明 を 進め る こと に し ます 。 

ブ プログ ラム を 画面 に 表示 し て 修正 する 場合 、 モ ー ド は 80 桁 X25 行 の 
ほう が 多年 す い の で 、 ま ず 炊 人 ま よう に キー サイ の し まま 。 


UIDTH 80,25 し 





次 に 、 ペ ベー ス に な る プロ グラ ム を ロー ド し ます 。「LOAD/」 は 
(PF6 ) キー に 定義 され て いま す の で 、 こ れ を 使う と 便利 で すね 。 


LOAD “EITAN4 





さき て 、 こ れ で 前 準備 が で きま し た 。 い よい よ プ ログ ラム の 修正 に と 
りか か り ま す が 、 を の 前 に も う 1 つや っ て お きだ いこ と が あり ます 。 
プロ グラ ム の 修正 で は 、 リ スト を 部 分 的 に 画面 に 表示 する ケー ス が 
多く (なり ます 。 

9 リョ ツタ ツ W が キー に 定義 きれ て いる の は みな る ん ご 
ぞ ん じ の と お り で す が 、 こ の キー を 押し た 場合 に は 、 


LIST ご 


と 同じ 、 つ まり 、 い つも プロ グラ ム の 先頭 か ら リ スト が 表示 され て し 
まい ます 。 を そこ で 次 の よう に 、 (PF2) キー の 定義 を 変更 し ます 。 


KEY 2。、 LLSI (し 


あざ ちと に まり 私 だ が 生 は キー を 用 いて 任意 の 行 を 画 
曽 に 表示 あせ る こと が て きま すき 。 


N 


で は きる っ を そく 修正 作業 に と りか か り ま し ょ う 。 
画面 を クリ ア し て か ら 次 の よう に キー イン し て くだ さい 。 


(PF2) (スペ ニス ) [ (0 申 男 明細 因 


次 ペー ジ に 示す プロ グラ ムリ スト は スミ アミ の と ころ が すでに 修正 
ずみ で す が 、 み な さる ん の 画面 と 形 は 同じ だ と 思い ます 。 

いい で すか ? それ で は カー ソル 移動 キー を 使っ て 次 ペー ジ の 画面 
の 修正 個所 に カー ソル を も っ て いき 、 画 面 を 見 な が ら 修正 し て くだ さす 
い 。 (カナ) キー の 切り 換え を し っ か り し て くだ きい 。 インサート モー 
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10-190 


†ile name = 一 > 
1284 。6。10 
S@quen 七 1a | o 叶 = 陣 室 =1<】 7=】aYe 


MIDTH 40,20 : CONSOLE 0,20,0.,0 
CLS 
GOSUB 1000 
DIM AA ま (10 ) ,BB$( 10 ) 
OPEN 'A",#t1 "1:EITANDAT" 
FOR 1=1 TO 5 MI 
上 (オリ リ =99 ) " : AA$ ま ( 1 ) 
29” AND 1=1 THEN GOTO 220 
IF AA$ ま (IT)="99" AND 1<>1 THEN N=1-1 
GOSUB 2000 
INPUT | 





ド も 必要 で すね 。 
カー ソル が 「Ready」 の 
下 て 点滅 し ます 。 こ れ で 、 こ の 部 分 修正 は 終り で す 。 
同様 に し て 、 360 行 、 1040 行 、1110 行 、 1120 行 の ステ ー ト メン ト に 
うい 生 修 直 を 加え ん て 《 だ る きい 。 


次 に 修正 後 の リ スト を 示し ます が 、 
Aa 

360 IF Y ま ="Y" OR Y ま =" ッ " THEN RUN "MENU02" 

1040 OPEN MV ザ 仁 い : DAT“ 





1110 LOCATE 7?,7:PRINT "マツ ヒ * ノ 5 、 10 
1120 LOCATE 7。8:PRINT "トウ ロク ソ 9 ス 9 =ー>" sC: 


これ で すべ て が 終了 し まし た 。 を 部 分 修正 し て 新 
し い フ プログラム を 必 る さも が で きだ た の で ず 。 
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を 0 は 記 和 れ か が 6 も に と の プロ グラ ム を セー ズ ト し や まま も よ ょ 


〈 注 >2200 行 と 2240 行 の SP 
C 関数 の 出力 値 を 「35」 に 
変 也 もじ で くだ さい 
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3・4 登録 ・ 追 加 プ ログ ラム の 実行 


この 節 で は 、 す で に 作成 ずみ の 電話 番号 書き 込み 用 ・ 追 加 用 の プロ 
グラ み プ テイ ル を 実生 し て テス ト を し て ます 。 ま た だ た 、 こ の 結果 作ら 
れ た デー タフ ァイル 「TELNODAT」 は 次 節 以降 で 使う こと に い 
だ 導 0 ( 

まず 、 ドラ イグ 0 の ディ スク に は メデ ュー プ ブログ ラム が 保存 きれ て 
いま すず が め 、 こ れ を ロー ド し て 実行 する ほこ ろか ら 始 め ま す 。 


RUN “MENU02” ご ら | 


80 ペ ー ジ の よう な ディ スプ レイ 画面 に が な り ま し た か ? 
いま 私 だ た ち は デ ー タ の 書き 込み を し よう と し て いる わけ で すか ら 、 
仕事 番号 は 「 1 」 を キー イン し ます 。 を そし て 加 で す 。 
する と 、 入 力 に 対し て の 確認 も 求め て きま すか ら 、 も し よけれ ば y 
雪 補 イマ も キー を 押し ます 。 
すぐ に デー タタ 書き込み の プロ グラ ム 「TELNO 1 」 が ロー ド さ れ 、 
続い て 実行 きれ ます 。 画面 が クリ ア る され て デー タ 入 力 を うな が す メ ッ 
ャ セージ が 表示 きれ ます か ら 、 テ スト デー タ を 入力 し て み ま し ょ う 。 
次 の 4 名 は つ ゅ wY 太 肖 人 で み ま 人 上 まま タ 。 
トク カ か "ワリ イエ ヤス = デ > 000-000-0000 
トヨ トミ ヒデ” ヨシ = 一 > 111-111-1111 
ォ オタ " ノ フ ナカ” = 王 > 222-222-2222 
ア ケ チ ミツ ヒ テ ” = 一 > 333-333-3333 
4 人 の 氏名 と 電話 番号 を 打ち 込み 、 5 人 目 の メ ッ モ ー ジ が 表示 され 
だ た の 大 99。 を 入力 し キー を 押し ます 。 








「99」 を 入力 し リタ ー ン キー を 押 3 





次 に 画面 に は 「 ほ か の 仕事 を する か どう か 」 を た ず ね る メッ セー ジ 
が 表示 され ます か ら 、「y 限 」 と 入力 し ます 。 す る と すぐ に メニ ュー 
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画面 に 戻り ます 。 

今度 は て の まし J02 。 1 を 胃 択 U 
き と 同 じ 手 順 で 次 の 画面 表示 に 至り ます 。 こ の よう に な っ て いれ ば 、 
剖 き 込み は 順調 に いっ て いる は ず で す 。 





7 コグ / ツイ カラ うら マメ 


マヒ * / テー ター ニー〉 ア 7 チ ミツ レヒ テ * 


トド ワウ ロク ソウ スリ り = デー> 2 メイ 
UK ナラ RET 和 キ た フラ ト リウ リツ 1? 軒 





と 2 て すか ? 問 韻 い 導 0C き て いま し た か か? 

それ で は キー を 押し 字 過 で 進ま し ょ う 。 

以下 の 操作 は 2・8 節 で 勉強 ずみ で す の で 、 そ れ ほ ど 苦 も $ な く で きる 
と 思い ます 。 次 の 6 人 の 電話 番号 を 追加 し て お きま し ょ う 。 

サン プル デー タ の 電話 番号 は きれ い に を そろっ て いま す が 、 こ れ は 見 
や すく 《 す る だ めで す 。 何 桁 で も か まい ませ ん 。 


アラ イ ルク セキ 444-444-4444 
カイ ハバ "ラニ エ ツ ケ ン コー 
カイ ホホ セイ リョ リウ 666-666-6666 
( ヨウ ダ 「 、 ん 39 だ PTPー PP 
サト ウ イ ゅ サイ 8G88-888-8888 
ヨネ タク イッ フッ ウー ツウ 9 ウー の 999 


6 人 の デー タ 入 力 が 終り まし た ら 「99」 を 入力 し 「 ホ カノ シゴ トラ 
ン で 容 方 」 と いう メッ セージ に 対し て は 「n」 を キー イン し 、 本節 で の 
テス ト を 終り ます 。 デ ー タ 追加 の 確認 を し た い 方 は 、 も 5 一度 RUN 
きせ 、 次 の 画面 で キー( 注 ) を 押せ ば 確か め ら れ ま す 。 


20 ァ ダグ 4 カラ マス 
確か に 堂 録 され て いま し た 
AD 02 と クー コラ ジグ (| うら コリ イッ 
トウ ロク ソ 9 ス 29 = 三 > 10 メイ 


KA プラ RE キーラ トト の / 7 


Break In 1140 
Ready ここ で リタ ー ン キー を 押さ ず に 
ブレ ー ク キー を 押す 
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3・5 デー タ の 検索 


ざる まで 全 代 ん で せき 友 あな ね な は も うだ い ボ ポッ ター の w ル プ 区 本 
の 扱い に 慣れ た こと と 思い ます 。 私 だ たち が 日 常 か か わっ て いる 実務 上 
の ファ イル と 違っ て ディ イス ク の デー タフ ァイル は 、 い くら 書き 込ま れ 
た と いっ て も 、 目 に 見 を な いも の で すか ら 実 際 に 読み 出し て 確認 し て 
みる まで は 不安 が 残り ます 。 初 めのう ち は と くに 、 書 き 込 み が う まく 
いっ た の か どう か 、 追 加 は 確実 に で き て いる の か どう か 、 ほ ん と うに 
心配 な も の で す 。 

し か し 、 た ま に は 失敗 も ある か も し れ ま せん が 、 実 践 を 積み 重ね て 
ぃ いで 久 由 だ ん だ ん 自信 が も て で る まう に な っ て 《 る と 思い ます 。 





き て 、 こ の 節 で は 、 初 ゆめ て の テー マ 「 デ ー タ の 検索 」 を マス ター す 
る 当 MSb 当 も よう 。 

人 玉 宰 の きせ 4、 デ ー タ を 探す っ と 、 自 邊 ほし い デ ー ダ や ユン 
ピュ ー タ に 探る せ 画 面 に 表示 る せよ うと いう わけ で す 。 

ジー ケン シャ ルフ ァイル と ラン ダム ファ イル の 達 い の と ころ て 述べ 
まし た が 、 シ ー ケ ン シ ャ ルフ ァイル で は 、 あ る 1 つの デー タ だ け を 直 
接 に 読み 出す こと が で きま せん 。 最 初 の デー タ か ら だ た ん ね ん に 読ん で ( 生 / 行 番号 110 の CLEA 

と 8 inkob re な R 文 は 、 こ の 思 和 2 を 

いか か が けれ ば ぼ な ら な い の て す 。 ずい ぶん 融通 が きか な いと 思い ます が 、 RUN さ せ た と き に 
コン ピュ ー タ が や っ て くれ る の で すか ら 、 私 た ち は だ まっ て 従う こ Out Of String Space の エ 
2 人 ラー に な る 可能 性 も あり ま 
ce MY の 


・ す の で 入れ て お きま し た 
で は 、 い つも の と お り 出 だ し の 部 分 か ら 始 め ま し ょ う 。 





file name =- 王 > TELNO4 
1984 。6。20 


らら quen も tial data sea ビ ch 
save TELNO4 “ 


100 MIDTH 40,20 : CONSOLE 0,20,0,0 

110 CLEAR 5000 : DEFINT AaA-Z 

412 し LS 

130 GOSUB 1000 デー タ 読 み 出 し ルー チン へ 





ファ タツ 5 名 様 " 宮 導き まで の 順 計 な (7 と TELNO3y C の が ) 
デー タ 検 索 は メニ ュー 画面 で 仕事 番号 4 に し て し まい まし だ の で 、 こ 
の ま 生 も あし だ 。 

行 番号 130 の GOSUB 文 で 1000 行 に 飛ば し 、 こ こ で デー タフ ァ イ 
ル か ら デ ー タ を 読み 出し 、 検 索 の 準備 を し ます 。 
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ここ で の デー タ 検 索 の 方 法 で す が 、 フ ァイル か ら 読 み 出し た デー タ 
を 配列 変数 に し まっ て お いて 、 画 面 の メッ セー ジ に 従っ て 探し た い 人 人 
の 名 前 が キー ボー ド か ら 入 力 る され だ た ら 、 それと 配列 に し まわ れ て いる 
文字 列 と を 比較 する こと に よっ て 該当 する デー タ を 表示 する よう に 四 


ます 。 
配列 の 有効 な 使い 方 を そこで ます 配列 を 宣言 し な けれ ば な ら な いわ け で す が 、 こ れ も あ ら 
か じ め 
DIM AA ま (200 ) , BB も (200 ) 
* と いう よう に 、 一定 の 克 き る て 人 確 し て お いて も よい の で す が 、 も 皿 


登録 され て いる デー タ 数 が 50 だ と する と 、 残 り の メモ リ は 何 の 役 に も 
だ っ て いな いわ け で すか ら 、 ず いぶ ぷん ムダ な 使い 方 を し て いる こと に 
がり ます 。 

これ を 防 で 方 法 ほ と し て 、 ま ず 最 初 に 、 配 列 変数 で は な く 〈 く 普通 の 文字 
変数 で デー タ を 読み だ し て デー タ 数 を カウ ント し 、 そ の 数 を 配列 の 大 
き さ に 設定 する こと で す 。1000 行 か の ら の サブ ルー チン で この 処理 を す 
な こと に し まし 』 が 。 


1000 “ 

1010 “ data read sub 1 

1020 “ 

1030 OPEN "1 。#1。"1sTELNODAT “" 
1040 IF EOUF(1) THEN GOTO 1080 


1050 INPUT 1 。A ま 。B ま も 

1060 じ = じ +1 = rmRLTRNND ポ 数 生か 8 志 
1070 60TO 1040 

1080 CLOSE #1 

1020 RETUKRN 








変数 C じ を カウ ンタ に し て 、A$、B$ し と いう 文字 変数 を 使っ て 、 氏 
名 、 電 話 番号 2 つ で ひと 組 の デー タ を 読み 出す た びに 1 ずつ カウ ント 
WO MY ま 革 ら 
し お 0 ド 、 つ まり ファル イル の 中 避 読 み 出 すず デー タ が だ な だく な 入 ば 、 
統 民 まり URIN 交 で GOSUBB 文 の すう し あ に た に 戻 り 9 ます から 、 を こと で 
配列 の 宣言 配列 の 宣言 を し ます 。 1 


140 DIM AA ま (C) ,BB ま (C) 


配列 の 大 きる が 決ま り ま し た の で 、 もう一度 ファ イル を OPEN し 
て デー タ を 読み 出し 配列 の 中 に し まわ な けれ ば な り ま せん 。 二 度 手間 
に は な り ま す が 、 こ の ほう が メモ リ の 有効 利用 と いう 点 で は ずい ぶん 
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ーー の カ ューーーーー 


プラ ス に が る ゆめ ず 。 

配列 へ て の デー タ 読 み 込 みち も る サブ ルー チン に し て 、 行 番号 を 2000 か ら 
ょ や 族 傘 。 まず 150 行 EGOSUB 文 を 入れ 、 湊 サゲ ルプ 全球 
ー 天 \ が し ます 。 


150 GOSUB 2000 


の 


ア 


8 data read sub 2 


OPEN 1), 医 1 "1:TELNODAT" 
FOR 1=1 TU し 

INPUT 1 AA ま (T),BB ま (1 ) 
NEXT 1 
CLOSE 提 1 
RETURN 


この 場合 EOF 文 を 入れ る 必要 は あり ませ ん 。 と いう の は すでに 変 
数 C に デー タ 数 が 入っ て いま すか ら 、 こ の 数 を 超え て 読み 出 を うと す 
あき と 相 が いか な で すず 。 

これ で 一 応 下 準備 が で きま し た 。 次 は メイ ン ル ー チ ン で す 。 

まず 画面 中 央 に 仕事 の 目的 を 表示 する よう に し まし ょ 2 う 。 





160 “ 
170 LOCATE 12,7 : PRINT “ テ "- タ ラ サカ * シマ ス " 
180 FOR IT=1 TO 5000 : NEXT 1 時 間 つ ぶし 





次 は 電話 番号 を 知り た い 人 の 名 前 を 入力 する 部 分 で す 。 和 コ 
を 押し て カタ カナ で 入力 し な けれ ば な り ま せん し 、 少 上 入 サナ を キー ボボ 
ー ド か ら 探 す の は 慣れ る まで けっ こう 手間 どる も の で す 。 こ こ で は ち 
ょ ェ っ と 楽 を し て 姓 だ け を キー イン し 、 同 姓 の 場合 の 処理 は 別に 考え る 
を 性 ま 。 次 を 炊 力 し 人 せ キー を 押し た ら 、 デ ー タ 探し の サブ 
ルー チン へ 飛ぶ よう に し ます 。 


ア 


じ LS 
LOCATE 8,5:PRINT " ト " ナ タ / TEL No ヲ サカ "ラマ スカ " 
LOCATE 8,6:PRINT “ 0 ン ル 和 


LOCATE 8,7:INPUT = デー>" NM 
L=LEN( NM 中 )=ーーーーーーーーーーーーーーーーー 文 字 列 の 長 さ を 求め る 


GU0SUB 3000 - デ ー タ 検索 サブ ルー チン へ 
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LEN 関 数 


行 番号 240 に LEN( レ ング ス ) 関 数 が あり ます 。 これ は 文字 列 (スト 
リン グ ) の 長き を 求め る 関数 で 書式 は 次 の と お り で す 。 


A$ あ と いう 文字 列 の 長 さ が し に 代入 され ます 。 文字 列 の 前 後に スペ 
ー ス が 入っ て いる と き は 、 そ の スペ ー ス も 長き に 加え られ る こと に 注 
沿い し. (だ き 1 もう 。 

ここ で て LEN 関数 を 使い まし た の は 、 配 列 A A $(I) に 読み 込ま れ 
て いる 名 前 は フル ネー ム で 入っ て いる た め 、 こ の うち 姓 の 部 分 だ け を 
取り 出し て 比較 する た めで す 。 

つま り 、AA$(I) の 左 か らし に よっ て 与え られ る 長き だ け 文 字 列 
を 取り 出せ ば 、 それ が 姓 に ほか な ら な いわ け で す 。 

デー タ 検 索 の サ プ ブルー チン は 、 こ れ を 利用 し て 次 の よう に プロ グラ 
ミダ 4 まし 8。 


data search sub 


FOR 1=1 TO C 


IF NM まま =LEFT ま (AA* ま (1) ,L ) THEN N=N+1 
: 仙 し まま (N)=AA$ も ( [ ) : BC ま (N)=BB$ も ( 1 ) 

NEXT 1 

RE TURN 





配列 AA$(1) の 中 を デー タ 数 C に よっ て 与え られ る 数 だ け 探 せ ば 


LEFT$ る $ よい わけ で すか ら 、 ドド OR 一 内 双 KT ルー プ に し ます 。 

の 4 し 2 を し て 、 あ な た が 入力 し た 名 前 が 登録 きれ て いる デー タ の 中 に ある 
rm た か どう か の 判断 は し LEFT$ 文 を 使っ た 比較 に よっ て 行っ て いま す 。 
MID$ LEFT$ 文 と 同じ よう に 、 あ る 一 定 の 長き の 文字 列 を 取り 出す 関 


(ミッ ド ダ ラー) 数 に RIGHT$ 関 数 、MID$ 関 数 が あり ます 。 


も =LEFT(B ま も 。L ) B$ の 左 か ら L 個 の 文字 列 を A$ に 代入 


=RIGHT ま (B ま 。L ) B$ の 右 か ら L 個 の 文字 列 を A$ に 代入 
A ま =MTD ま (B ま 。L 。M ) B$ の 左 か らし 番目 よ り 数 えて M 個 の 文字 列 を A$ に 代入 
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機能 に つい て は 上 の コメ ント て 説明 し て いま す の で 省き ます が 、 け 
っ こう 便利 な 関数 で す 。 ダ イレ クト モー ド で 次 ペー ジ の ょ うに キー イ 
ン し 、 こ の 関数 の 機能 を 実際 に 確か め て み ま し ょ う 。 

文字 変数 は つなげ る こと も で きま すか ら 、 工 夫 次 第 で か な り ユ ニー 
ク な 使い 方 が びき る の で は な いか と 思い ます 。 あ な た も 、 プ ブロ グラ ミ 
ング の 中 で 役立て て みて は いか が で し ょ うか ? 





A ま ='0123456789 


に イー\= 【o トン 
B ま =LEFT ま (A ま 5) : し C ま =RTGHT ま (A ま ,5) : ? B ま ,C じ ま 
1 クコ 4 っ 678 ウ 2 


Read ッ 
も =MIDU ま (A ま 。43) 》』 ? 日 ま 
う 345 「 


に ニチ = eb 
褒 





る て 、3040 行 の LEFT$ 関 数 で 登録 る きれ て いる 氏名 の 左 か ら 文 
字 を と り 出 し 、 そ れ を NM$ と 比較 し 、 2 つの 文字 列 が も し 同じ で あ 
れ ば 、THEN 文 以降 の ステ ー ト メン ト へ 進み ます 。 

電話 番号 を 調べ で たい 人 の 名 前 が みつ か っ た だ わけ で すか ら 、 カ ウン タ 
N を プラ ス 1 し て わき ます 。 変数 N は 初め は 0 で すか ら 、1 つ 見 つか 
れ ば 0 土 1 ニ 1、 つ まり 1 が N に 代入 きれ ます 。 

迷 ( に 、 

し て いま す 。 この 配列 は 、 同 姓 の 人 は 複数 人 いる 可能 性 も ある 
わけ で すか ら 、 同 姓 の 人 を すべ て 退避 る せ て お くだ め の も の で す 。 

だ ょ えた ば 、 便 際 き ん と いう 人 が 3 居 いた と し ます と 、 フ ファ テイ に 登 
録 し て ある 順に 、AC$(1)、AC$(2)、AC$(3) の 中 に 格納 る 
れ て いく わけ で す 。 を そし て 、 こ れ を 再び 画面 に 表示 し て 選択 きせ れ ば 
まい わ サ で す 。 

初 氷 の 入力 の と き に フル オー ム に し て ね け ポ 、。 と の よう な こと は あ 
まり 起こ ら 5 ない でしょ う が 、 入力 が 米 の み で ある 上 に カタ カナ の 入力 
で すか ら 、 読 み 方 が 同じ の 人 は けっ こう いる か も し れ ま せん 。 

が に の 0 、 の 0 ログ ラミ ルル グ する 58 き は 、 か いろ いろ か ケー 用 相 軍 し 
て お てく こと ょ と が 実 切 て すす 。 

この サブ ルー チン か ら 5RETURN 文 に よっ て 戻る E、 今 度 は 、 


こ AE 示す 

この 処理 過程 6 も や は り サ ブ プルー チン に する こと に し ます 。 

メイ シン ルー チ シ ぱ で ぎる を だ け 商 系 に て い で 、' う し る みゆ の ほす うに じい 
あい あみ な が ザ ゲル デー チン や を つけ て 科 で こと 上 が 還 まき し い 色 馬 い に あす 。 

で は 、 い ま 説 明 し た 3 つの 場合 を 処理 する 部 分 を 次 に 示し ます 。 
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IF N=0 THEN GOSUB 4000 : GOTO 200- 一 』 っ > らい 
IF N=1 THEN GOSUB 5000:GOSUB 7000:GOTO 310 
GOSUB 6000 0 な 因 


| 名 見 つか っ た 


じ LS 
LOCATE 10,5 : PRINT "サン サク ラー ツ ツ " か マス カ " 


LOCATE 10。6 INPUT " ( ヶ ノ n )"sY ま 「 

IF Y$="Y" OR Y ま =" ッ " THEN N=0O : GOTO 200 
LOUCATE 10.8 : PRINT "ホカ / ミコ " ト ヲ も マス カ " 
LUCATE 10。9 : INPUT "  ( ッ /n ) "3Y ま 

IF Y ま ="Y′ OR Y ま =" ッ " THEN RUN "MENUO2" 

END MoMAUMDBOO 癌 





4000 行 か ら の サブ ルー チン は 目的 の 名 前 が 登録 され て な か っ た 場合 
の 処理 で す 。 サ ブル ー チ ン か ら 戻 る と 、200 行 へ 飛ば し て も う 一 度 入 力 
きせ ます 。 
5000 行 か ら は 、 1 名 見 つか っ た 場合 、6000 行 か ら は 同姓 の 人 が 複数 
人 いた 場合 の 処理 で す 。 
キー 入力 待ち の 7000 行 か ら は 、 キ ー 入 力 待 ちの サ プ ブルー チン と し まし た 。 短い も の 
し nn で す が 、 複 条 な プロ グラ ム で は か な り 使 用 する 機会 が あり ます の て 、 
人 き 長 い プ ログ ラム で す と 何 
回 も キー 入力 待ち の ステ ー 作っ て お くく と 便利 で す 。 この 程度 の プログラム で は それ ほど 必要 な い 
こら の 6 小林 まま 選 ん が MD も いて (0 い 。 
ちく と 便利 て す 。 310 行 か ら は 、 を の 後 の 作業 を だ う する か 、 を の 意志 を 求め る も の で 
9 の ツー ュー プロ グ み ム パ 戻る よう に し て お あおき まし か 。 
ここ まで で メイ ン ル ー ナ チン は 終り で す 。 こ の よう に メイ ン 部 分 は 短 
4 もじ し CE さり も 原 り いあ 


次 に 各 サ プ ブルー チン を ユー ディ ング し て いき まし ょ う 。 


該当 者 な し の 場合 まず 、 フ ァイル に 登録 され て いな か っ た と き 。 


” data not found 


CLS [ 
BEEP : BEEP : BEEP ブザー 音 を 出し て 注意 し ます 


LOUCATE 8,5 : PRINT “ソノ カタ トウ ログ クシ テア リマ セン " 
LOUCATE 8。7 

PRINT ” Start from the beginning! " 

FUR =1 TO 3000 : NEXT 1 エニー メッ セー ジ が すぐ 消え な い 
RKE TURN よう に する タイ マー 





画面 を クリ ア し 、 ブ ザー 音 と と も に メッ セー ジ を 表示 し 、 注 意 を う 
な が し て MY ます 。 
この 場合 は 、 飛び 先 で 戻っ だ ら 、 もう一度 入力 を し な ね お し ます 。 


次 は 、 1 名 該当 者 が いた 場合 で す 。 該当 者 1 名 の 場合 


っ 000 

5010 “ data found sub 1 
S02H 

っ 030 CLS 


5040 LOCATE 10.5 : PRINT 、TEL No。・・・ j:BC* も (N) 
っ 2050 LUCATE 8,7 

5060 PRINT "Hit RET key if you are OK!" 

っ 070 KRETURN 


これ も 、 間 題 な いと 思い ます 。 配列 BC$(N) の 添字 N は 、 1 名 し 
か いな い の で すか ら 1 で も か まい ませ ん 。 





次 が 3 番目 の ケー ス 、 複 数 人 いた 場合 で す 。 該当 者 が 複数 人 いた 場合 


ア 


. ・data found sub 2 


に に さ 9 

LOCATE 8,3 

PRINT _ USING " ト " ウ セイ / ヒト か カ " 音 拉 メイ イマ ス ” 5N 

FUR IT=1 TO N 

LOCATE 8,4+1 

PRINT USING " 拉 半 & "3 T。AC ま (1 ) 
NEXT JO MS 
LOCATE 10。5+1I 』 INPUT "ンコ "9 ウラ ト "9 ソ "5M 

じ LS (ui 
LOUCATE 8,5 

PRINT AC ま (M)j” サン ノ TEL No。 ハ " 

LOCATE 12。6 : PRINT BC ま (M)』“ か スリ | 
LUCATE 8,.8 電話 番号 表示 


PRINT "Hit RET key if you are OK!" 
BUSUB OO00O 
RE TURN 





同姓 の 人 が 2 名 以上 いた 場合 に は 、 す べ で て 画面 に フル ネー ム で 表示 
し 、 を の 中 か ら 目 的 の 名 前 を 番号 で 入力 きせ ます 。 番号 あや キー イン し 
析 キー を 押す と 、 す で ぐに 電話 番号 が 表示 る れ ま す 。 
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6160、6170 行 は キー 入力 待ち の 処理 で す 。 恨 キー が 押 き れる まで 
表示 画面 が その まま 維持 され ます 。 

6050、6080 行 に ある に つい て 簡単 に 説明 し 
て お きま す 。 ご ざ ごく 一 般 的 に 使わ れ て いる の は 次 の 3 つ で す 。 


⑯ PRINT USING 「 相 料 電 幸村 "』A 


@ PRINT USING 「 昔 打電 提 培 。 "3A 
@⑥ PRINT USING “& & ぅ 人 ム 呈 





は する も の で す 。 数値 が 指定 きれ て い 
る 桁 数 ( 例 で は 5 桁 ) より 小さ いと き は 、 右 づめ で 出力 され ます 。 し 
だ た が っ て 、 縦 に 並ん で 出力 され る 数 値 を 右 プ グロ エ に する の に よく 〈 使 わ 
机 肖 学 。 

は だ た だめ 、 大 き な 数 値 を 扱う と き に 見 や す 
まず 。 

は 

し ます 。 こ の 字数 より 長け れ ば 余分 な も の は 無 
視 さ きれ ま すし 、 短 か けれ ば 左 づ め て 出力 され ます 。 
ダイ レク トモ ー ド で いく つか だ めし て みて くだ る さい 。 


A=1234 : B!=123456 : A ま = "FM-77" 


に 4 こと - 【o ト * 「 
PRINT USING 「 料 壮 持 韻 持 "?AA 
1234 


1 イーナ - (eb。 
PREINT _ USING  「 革 枯 音韻 井 培 。"sBI 


123 。456 4 スペース 
12 ス ペー ス 
=【o by nis 


PRINT USING 
FM-77 


& & 1A ま 


スペ ー ス が 4 つ 入 り 5 文 字 目 か ら 左 づめ で 出力 され る 
Read ッ 
壮 1 


PRINT USING 文 に は まだ いろ いろ な 使い 方 が あり ます が 、 
並 通 は この 程度 で 間に合っ て し まい ます 。 

ご こ で 紹介 し な か っ だ も の は マニ ュ ア ル に 載っ て いま すか ら 、 使 う 
機会 が 生じ まし た ら 、 参 照 し て くだ さい 。 





次 は 最後 の サブ ルー チン で す 。 


7000 
7010 6 inkey call 


7020 
7030 Y 呈 =INKEY ま 
7040 IF Y ま ="” THEN GOTO 7030 ELSE RETURN 





こ 衝 で 売 肝 し まし か た 。 ジ ログ ラム を セー クジ し て か ら 実 行 も て み ま し 
7 
RUN き る きせ ます と 次 の よう な 画面 に な り ま ず 。 


トド か の 。 ノ [EL NoO う ラ 9 うう 2 カ 
7 (トド ワリ 
ーー ッ > 加 





姓 を 入力 し て みて 〈 だ きい 。 見 つか ら な けれ ば 、 ピ ーッ と ブザー 音 
が し て 次 の メッ セー ジ が 表示 され ます 。 


レアル グル AM ジレ ルカ の 4 ルド 4 の の 


ら も tar 上 †rom the beginning! 





入力 画面 に な り ま し た ら 「 ヨ シダ 」 と キー イン し て くだ さい 。 
ドリ り E セ イ / じ EN トカ 2/ メ 4 イソ ん 


1 ヨシ タダ"^ サン コウ 
2 コッタ ショ リ イ ソ 


0 ノコ リス トリ り / ( 還 番号 を 入力 する 





異常 な きそう で て すね 。 
最後 は 次 の 画面 で す 。 
ケッ リサ クラ ソリ 7 マカ 


( y/n )2 n で ーー りな ら 大 文字 か 小文字 の N を 入力 


ホカ / シコ トド ク シマ パカ 
( y/n )? 園 Y を 入力 すれ ば メニ ュー へ 





第 3 章 シー ケン シャ ルフ ァイル 99 





第 3 章 シー ケン シャ ルフ ァイル (101 





Mae “ 
3・B デー タ の 修正 

第 2 章 の 「 英 単語 練習 プロ グラ ム 」 で は 、 シ ー ケ ン シ ャ ルフ ァイル 
に すでに 書き 込ん だ デー タ の 修正 は 扱い ませ ん で し た 。 

し か し 電話 番号 の ファ イル と な る と 、 だ ま に は 番号 変更 6 ある で し 
ょ うじ し 、 ま だ 妖 が 人 わ っ た りす ず する 6 いま す 。 て すみ が ら 、 ある 私 の 名 
前 を 入力 し た ら 、 を その デー タ を 検索 し て 氏名 ・ 電 話 番号 と も に 、 自 由 に 
修正 する こと が で きだ た だら 天変 便利 だ も 思い ませ ん が ? 

この 区 で は 、 ら の 和 し 学 ん た 0 いこ う も いう お けり で びび 。 





デー タ 修 正 の 手順 


シー ケン シャ ルフ ァイル に お ける デー タ 修 正 は 、 ま ず 初 め に 、 現 在 
すでに ディ スク に 書き 込ま れ て い . る デー タ を 、 一 度 ま すべて 読み 出し 、 
それ を 配列 に し まつ て で て おき ます 。 

そし て 、 デ イス グレ イ 上 の メッ セー ジ に 従っ て 、 キ ー ボ ー ド が ら 変 
更 し だ た だ い 人 の 名 前 を 入力 し ます 。 次 に 、 こ の 入力 デー タ を も と に 配列 
の 中 か ら 探 し 出し 、 こ れ を ディ スプ レイ に 表示 きせ 、 正 し い 氏 名 、 電 
話 番号 を 入力 させ 、 配 列 の 中 身 も 入れ か えて し まい ます 。 

この 操作 を 修正 の 必要 の ある デー タ 数 だ け く りか え し 、 最 後に 修正 
され た 配列 の 中 身 を 、 デ ー タ ファ イル を OPEN し て 書き 込み ます 。 
これ で 修正 きれ た マス ター ヌ アア イル の 出来 上 が り で す 。 

も う 、 お 気づき の こと と 伺い ます が 、 デ ー タ 読み 出し の と ころ み 、 ま 
だ た ブログ ラム の 全体 的 な 流れ な ど 、 前 節 の デー タ 検 索 し だ いぶ 共通 し 
{も め ま す 。 

そん な わけ で 、 デ ー タ サー チ の プログ ラム に 手 を 加 を だ り 、 あ る い 
は 、 追加 サブ ルー チン な ど を 作っ だ た だり し て て 完成 き ぜ で い 《 こ と に いた 
は SN の 。 

ます ず 前節 の プロ グラ を ロー ド し て 《 だ さい 。 そし て 、 で きる だ け 
スク リー ン エ ディ タ で な な し て いき まし ょ う 。 


LOAD “TELNO4 " 


まず 初め ゆめ は い 、 プ ログ ラム の 見 出し 部 分 で す 。 
前 節 の ゲロ グラ ム 名 と 順序 が 前 後 し ます が 、 フ ァイル 名 は 「TEL 
MO9) ちらし あま も だ 。 
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†ile name = 王 > TELNO3 
1984 。6。20 


紀 G ら queGn 七 181 da 七 8 こっ ビビ ec こ 巧 


save "TELNO3 





行 番号 100 か ら 160 ま で の 初期 設定 部 分 は 「TELNO4」 と 同じ で す 。 
次 は メイ ン ル ー チ ン で す 。 


170 LOCATE 10,7 : PRINT “" テ *ー タ / ラ ュ ウ セ イ ヲ ラ シマ スズ " 
180 FOR 1=1 TU っ 000 》: NEXT 1 


_190 

200 CLS 

210 LOCATE 8,5:PRINT " ト " ナ タ / テ "ー タ ヲ シュ リセ イ マス カ " 
220 LOCATE 8。6:PRINT 4 プ トリ ソリ * 


230 LOCATE 8,7:INPUT "=> ッ "5NM ま - 
240 し L=LEN(NN$) 

250 

2Z60 5USUB 3000 





270 IF N=0 THEN GOSUB 4000 : GOTO 200 

280 IF N=1 THEN GOSUB 5000 : GOTO 310 

290 GOSUB 6000 : GOSUB 5000 GOSUB 7000 は 削除 
300 ^ 

310 CLS 6 追加 





320 LOCATE 10.5 : PRINT "シュウ 9 セイ ヲ ラ ツ ツ * ケ マス カ " 
390 LOCATE 10.9 ) IMPUF  ( ヶ /n ) ,Y ま 

340 IF Y ま ="Y′ OR Y ま = ッッ ” THEN N=0 : GO0TO 200 
34 コ 5 GUSUB 7000< 
3 っ 50 LOCATE 10,.8 





人 邊 加 ス テー トメ ント 


PRINT "ホカ / ノ ラコ " ト ヲ ラマ スカ ”" 


390. LOCANTE 410!9 3 MPIRUTMAT ウ (  y プ nc ) さ ) 
370 IF Y ま ="Y' DR Y ま =" ッ ” THEN RUN "MENUO2 
380 END 





追加 変更 点 は 上 の リス ト 中 、 緑 色 の 部 分 で す 。 

この プロ グラ ム で は 、7000 行 か ら の キー 入力 待ち ルー チン は 必要 な 
く な り ま し た の で 削除 し まし た 。7000 行 か ら の 削除 は 、 ま だ 行わ な い 
て 示 う くう て まず 。 

5000 行 か ら を 修正 サブ ルー チン と し 、 該 当 デ ー タ が 1 名 の 場合 も 複 
数 名 の 場合 も 、 こ の め の ル デビ チン を 使う こと に し まし だ 『 80 有休 、 290 条 何 
5000 行 へ 飛ん で いま すね ? 

320、330 行 で 修正 を 続け る か どう か の 確認 を し 、 も し 終り に する の 
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で あれ ば 、 デ ー タ 書き 込み の サブ ルー チン へ 飛ば し ます 。7000 行 か ら 
が それ で すず 。 行書 全 あ 3456 し で 、GOSWB 文 を 追加 し まし だ 。 
行 番号 1000 な よび 2000 か ら の デー タ 読 み 込 み 用 サブ ルー チン は 、 ま 
うだ (で 机 じ て ず 。 
デー タ 検 索 サ プルー チン 次 は 3000 行 か ら の デー タ 検 索 の サブ ルー チン で す 。 


3000 

3010 “ data search sub 
3020 

3030 FOR IT=1 TO C 


3040 IF NM ま =LEFT ま (AA ま (T)。L) THEN N=N+1 : X(N)=1 


: し じ ま (N)= ニ AA まま ( 1 ) : BC ま (N)=BB ま ( 1 ) | 
3050 NEXT Ii 
3060 RETURN の 





この 部 分 で の 変更 点 は 1 か 所 、3040 行 に 代入 文 を 1 つ 挿 入 し まし た 。 
イン デック ス X(N) と いう 配列 は 一 種 の イン デック ス で 、AC$(1)、AC$(2)、 
の の の 内 容 が 、 配 列 AA$ の 何 番 目 に 対応 し て いる か を 示す も の で す 。 
修正 は AC$、BC$ と いう 配列 を 使っ て 行い ます の で 、 修 正 後 、 を 
の 修正 デー タ を も と の 配列 AA$、BB$ に 戻し て や ら な けれ ば な り 
ませ ん 。 そ の た だ ため 、 戻 す 先 が 何 番 目 か を 記憶 し て お き 、 代 入 の 橋 わ た 
し を する の が 配列 X で す 。 
検索 サブ ルーチン で 修正 すべ き デ ー タ が 見 つか っ だ たら 、 い よい は よ 修 
デー タ 修 正 サ プ ブルー チン 正 作業 を し な けれ ば な り ま せん 。 これ は 5000 行 か ら で す 。 「 





data CoOFFect sub 


CLS 

LUCATE 5,2 : PRINT AC ま (N) 』” サン / シュ ウゥ セイ “ 
LUOCATE 5,3 

INPUT 『 マチ カド イ ナイ テ “ ス カ ( yy/n ) 3?Y ま 

IF Y$="N'" OR Y ま ="n" THEN RETURN 


LOUCATE 5,4 

PRINT "タタ "シイ テー タ ラ トウ "(シュウ セイ ナシ =RET ) “ 
LOCATE 5,5 : PRINT “ラメ イ = IP 

LOCATE 5,6 : INPUT > ぉ NM$ 


IF NM も < く >"” THEN AA$(XCN) )=| =NN 人 も 
LOCATE 5,7 : PRINT "TEL 0 ro 
$ EL も 


LUCATE 5,8 INPUT 『 「 


IF TEL ま く <>"” THEN BB$(X(N) )= CTELs 
RE TURN 





配列 AA$、BB$ の 内 容 を 修正 値 と 入れ 換え 
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この サブ ルー チン は 全面 的 に 変わ り ま す 。 こ の リス ト ど お り に キー 
イン し て くだ さい 。 前 の プロ グラ ム の 5000 行 か ら は 削除 し な く て も か 
まい ませ ん 。 あ と か ら 人 入力 し た 行 番号 の ステ ー ト メン ト が 優先 る きれ ま 
すか ら 、 自 動 的 に 切り 換わり ます 。 

5060、5070 行 で は 、 画 面 に 表示 る され た 人 の 修正 で よい か と どう か 確認 
し て いま す 。 も し 「N」 で あれ ば 、 拉 び 先 へ 戻り 、 初 めか 5 や りな お 
し 表 陳 6 

5090 行 か ら が 修正 で す 。 氏 名 、 電 話 番号 と も 修正 で きる よう に な っ 
て いま 表 

も し 修正 が な けれ ば リタ ー ン キー を 押し ます 。 こ の 場合 、 該 当 者 の 
配列 A A $ の 内 容 は 変化 し ませ ん 。 づ まり 、 修正 し が か なか っ た と いう こ 
と 紅 衝 見 ま 組 。 ' 

修正 し た けれ ば 、 画 面 に 表示 され る 矢印 の 右側 か ら 正 し い デ ー タ を 
キー イン し 、 次 に リタ ー ン キー を 押し ます 。 す る と 、 こ の 修正 デー タ 
が 配列 AA も と BB$ の 該当 する 位置 に 代入 され 、 前 の デー タ は 消え 
て し まい ます 。 こ こ で の 手助け と な る の が 配列 X(N) で す 。 こ の 配列 
に 、 何 番目 に 代入 し だ た ら よ いか その 数 値 が し まわ れ て いま し た ね 。 修 
正 が 終っ たら RETURN で す 。 

し か し 、 ま だ デー タフ ァイル に は 書き 込ま れ て いま ぜん よさ 。 配列 の 
中 で 修正 され た 、 と いう だ け で : す 。 

次 に 、6110 行 か ら 6180 行 まで は 不要 で すか ら 削 除 し 、 新 た に 6110 行 
を 明生 年 UN 発 格 人 導 DELETE 


DELETE 6110-6180 フ | 


data Tound sub 2 


CLS 
LUCATE 8,3 
PRINT _ USING “ ト " ウ セイ / ヒト か カ " 幸 拉 メイ イマ ス "jN 


FOUR 1=1 TO N 

LUCATE 8,4+1{ 

PRINT USING 「 間 & & 1,。AC*(1) 
NEXT 1 

EOCATE 10.5+1 : INPUT AT9 MV 1N 
RE TURN イー イン する 。 、M を Nc 変 更 し まし た 





この 部 分 は 、 同 姓 の 人 が 複数 人 いた 場合 、 ど の 人 の デー タ を 修正 す 
る の か 決定 する サブ ルー チン で す 。 
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次 に 、7000 行 か ら の デー タ 書 き 込 み の サ ブル ー チ ン を 次 の よう に 入 
CS 

現在 メモ リ に 入っ て いる 7000 行 以降 の ステ ー ト メン ト は 新しい ステ 
ー ト メン ト が 上 書き され る の で 心配 は あり ませ ん 。 


プ 


ア 


data ぃ ビュ te ub 


KILL "1:TELNODAT ファ イル を 削除 
DPEN "0 。 昔 1。" 13TELNODDAT "< 書き 込み モード で ファ イル を オー プン 


FOUR [=1 TO C 
PRINT 攻 1 AA ま (T)) 。 3BB(  ) < 修正 テー タ の 書き 込み 
NEXT I 
じ LOUSE 六 1 
RETUKRN 





これ は 一 部 修正 され た 配列 AA$、BB$ に 格納 され て いる デー タ 
が あら か め 人 o 書 あむ ダル ルー チン す ず 。 

これ で も うお わか り い だ だ け だ と 思い ます が 、 シ ー ケ ン シ ャ ル デ ー 
タフ ァイル で の 修正 は 、 一 度 既存 の デー タ を 配列 内 に 読み 込み 、 修 正 
が あれ ば 、 そ の 配列 の 中 身 を な お し 、 正 され た 配列 の デー タ を 再び デ 
ー タ ファ イル に 書き 込む の で す 。 

だ だ し 、 書 き 込 み 用 の デー タフ ァイル が すでに ディ スク に 存在 する 
わけ で すか ら 、 ア ウト プッ トモ ー ド で オー プン する 前 に KILL し コマ 
ンド て 削除 し て お か な けれ ば な り ま せん 。 


こ W て デビ デビ タ 修正 の グロ グラ ム は 完 有 府 し まし だ が 、1 つ だ け 夫 き 流 
えて きま す 。 

を それ は 、 こ の プ ブログ ラム 中 で AC$、BC$、 又 と いう 名 の 配列 を 
恨 用 人 で いま す 規 、 配 列 衛 言 を どこ て も し て いか が いこ ょ で の" つの ガ 
ログ ラム で は 同姓 の 人 が そん な に だ くさん いる と は 思わ れ ま せん の で 、 
配列 宣言 を し ませ ん で し た が 、 こ の プロ グラ ム を 何 か 違 う テ ー マ に 応 
用 し だ り し て 、 類 似 項 目 が 10 個 以上 ある よう な 場合 に は 当然 、 次 の よ 
うな ステ ー ド メン ト を 人 れれ て ちあ か な あれ 0 避 な 0 せ ん ん 


115 DIM AC ま (20) ,BC( 20 ) ,X(20 ) 
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人 災 に の ログ ラム リスト h 直 み は 入 す 。 
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いか が で すか ? バグ は あり ませ ん で し た か ? @ ブロ グラ ム の 間違い の 

可 は こと を バグ ( 昌 ) と いい 

と いで は きっ そく 実行 し て み ま し ょ う 。 こ の まま (EEF3) キー を 押 < 中 上 上 
し て も か まい ませ ん し 、 メ ニュ ーブログ ラム を ロー ド し て 、 選 択 核 で 


この デー タ 修 正 の 仕事 を 選ん で も か まい ませ ん 。 い ずれ に し て も 正常 


に 動く は ず で す 。 
最初 に 次 の 画面 と なり ま す 。 
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CN 1 の 本 0902 症 E2NONUE Ce まし よ 分 。 
する と すでに 配列 AA$ の 中 か ら 「 ヨ シダ 」 と いう 姓 を 探し 出し 
画面 に 表示 し ます 。 どうやら 同 姓 の 人 が 2 人 いた よう で す 。 


2 番目 の 「 ョ シダ 」 き ん を 選ん で み ま し ょ う 。 
2 切 と キー イン し て 次 の 画面 で す 。 


修正 し な い の で リタ ー ン キー を 押し た 


8So1 多 URI の グ の We の け 四 : の 


氏名 は 修正 し な いこ と に し て 0 を キー イン し て か ら リ ター ン キ ー。 


電 語 千 写 を 変 更 し て み ま し な 。 キー イツ し て リタ デン キー を 提 す と 、 


次 の 画面 に な り 、「 修 正 を 続け ます か 」 の 義 いか け に 「n」 を 入力 する 
と 、 修 正 デ ー タ が デー タフ ァイル に 書き 込ま れ 、 他 の 仕事 を する か ど 


うか の メッ セー ジ が 現れ ます 。 
こ 和 で 座り だ けれ ば は 「『「n」 を キー イン し まし ょ う 。 





う ・/ デー タ を 印刷 する 


私 だ ち は こ れ ま で 電話 番号 デ ゲー タフ ァイル の 作成 を し 、 デ ー タ の 追 
加 を し た り 修正 を し た り 、 ま た 希望 する 人 の 電話 番号 を 知る こと に も 
朋 生 し まし た 。 

し か し 、 こ れ ら は すべ て ディ スプ レイ 上 で 行っ て きま し た し 、 登 録 
ゲー タダ すべ て を ひと 目 で 見 が と いう わけ は まい り ま せん で し た 。 

また だ た 、 ガ デー タス チル ん 作 肝 申 は 。 ググ ラム に 入 表 ミス が な かい かど 

2 か の ルー チン も つけ て は いま す が 、 キ ー 操 作 は 人 間 の や る こと で す 、 
けっ こう 間違い が ある も の で す 。 

この 節 で は 、 登 録 デ ゲー タ を プリ ンタ で 印刷 し 、 も う 一度 この 目 で 確 
MO て 0 ポ .0 の 。 

まだ 、 い まま で は ディ スク の デー タ を 読み 出し て 画面 に 表示 は で き 
まし だ が 、 を れれ で を まだ で デ ザイ スク みみ に ほん ルル ツタ に 王 ま 込ま あて いる 
いう 実感 が な か な か も て ませ ん で し た 。 し か し 、 プ リン タ で 実際 に 印 
稲 る れ て し まえ ば 、 信 じ ざ る を えな いと いう も の で す 。 


画面 に デー タ を 表示 


登録 し て ある デー タ を 印刷 する 前 に 、 ま ず デ ィ ス プレ イ 画 面 に 表示 
し て み ま し ょ う 。 と いう の は 、 画 面 に 表示 する に は PRINT 文 で 、 
方 、 プ リン タ の ほう に 出力 する に は LPRINT 文 を 使え ば よい わ 
けり で すか ら 、 画 面 表示 さえ で き て いれ ば 、 あ と は PRINT の 前 に L 
を つけ る だ け で すか ら 、 ほ ば 出来 上 が っ た も 同然 だ か ら で す 。 それ に 、 
デイ スプ レイ 上 の ほう が 操作 し や すい で すね 。 

を それ て は 前 節 の プロ グラ ム 「TELNO 3 」 を ロー ド し て くだ さい 。 
迷 に 、130 行 か ら 380 行 まで 、3000 行 か ら 7090 行 ま で 削除 し て くだ きる 
い 。3000 行 か ら は 不要 で すし 、130 行 か ら は 作り な お き な け れ ば な り ま 
ん ル 。 
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次 に 、 最 初 の 部 分 に ファ イル 名 な ど 多 少 の 変更 を 加え ます 。 


file name = 王 > TELN0S 

1984 ,6。20 
| らら quential data PF1in 七 ou 上 
save "TELNO5 


横 の 桁 数 を 80 桁 に 変更 


PIE WT 二 1 
100 MIDTH 80,20 : CONSOLE 0,20.0,0 
110 CLEAR 5000 : DEFINT 人 --Z 

120 CLS 





氏名 と 電話 番号 を 横 に 続け て 並べ ます の で 、 こ れ ま で の 40 桁 で は ち 
よ の きのう (づつ で す 。 靖 箱 に し て が ああ しょう 。 

画面 表示 まで の プロ セス で す が 、 ま ず 、1000 行 か ら の サブ ルー チン 
ヘ へ デー タ を 読み に 行き 、 こ こ で デー タ を カウ ント し て 配列 を 宣言 し ま 
す 。 次 に 2000 行 か ら の サブ ルー チン で デー タ を いま 宣言 し た 配列 に 読 
み 込 み 、 こ れ を ディ イス デレ イ 上 に 表示 すれ ば よい わけ で す 。 

メイ ン 部 分 は 次 の ます ほ 作り あま し た 。 


ma1n じ Ou モ 1n@e 


LOCATE 23。3:PRINT "ユキ + キ + テー タ / イン サ ツ + キ 二 " 
LOCATE 23。4:PRINT " 5 メイ ス " ツ ヒョウ シ " シマ ス ” 
OSUB 1000 配列 設定 の た め の デ ー タ 数 読み 出し 


DIM AA$( じ +5 ) 。 BB も ( じ +5 ) 

5USUB 2000 配列 に デー タ を 読み 込む 
GUSUB 3000 画面 表示 の サブ ルー チン へ 
LOCATE 25。5 : PRINT "ホカ / ノ シコ " ト ヲ シマ スカ ” 


| LOCATE 25,6 : INPUT "  ( yZn )"jY$ 
IF Y$="Y” OR Y ま =" ッ ” THEN RUN “MENU02 
END 
190 行 の 配列 宣言 で 、 そ の 大 き さ を 従来 し も ちがっ て プラ ス 5 し て いま 
す が 、 こ れ は デー タ を ディ スプ レイ に 表示 する 場合 、5 つ ずつ を 1 グ 
ダグ で い まま の の 所 、 こ の よう 6 取 に だ 。 
と いう の は 、 デ ー タ が いつ も 5 で 割り 切れ る 数 、 だ と えば 30 と か 45 
と か で 終っ て いれ ば よい の で す が 、 は ん ば な 数 18 と か 47 と か で 終っ て 
いた 場合 、 画 面 表示 を する 際 、 配 列 AA$、BB$ に 、 こ の 数 を 超え 
る 添え 字 が 入り ます の で 、 次 の エラ ー と な っ つて し まう が ら て まま 。 


Subscript Out Of Range In 3020 
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隔 Suvuuu 





次 に 画面 表示 部 分 の プロ グラ ム を 示し ます 。 
こ 息 も 王 グ ルー チ ナジ に し 中 し た 。 


32000 “ 
3010 
3020 「 
3030 E1 ま =" 料 & ュ ーー 一 一 !5 ス ペー スー & " 
3040 E2$=” TEL  & ュ ーー 一 !4 ス ペー スー & " 
3050 FOR 1=1 TO C STEP 5 
3060 FUR J=1 TO 5 
3070 M= エ +J-1 
3080 LOCATE 15,5+J 
3020 PRINT_ USING E1 ま 3M,AA$(M) 
3100 PRINT USING E2* ま :BB ま (NM) 

聞 生 全 NEXT J 
3120 に CHITE 2 プッ トク 
3130 PRINT 
3140 Y ま =INKEY ま 
3150 NEXT Ii 
3160~ し LES 1 


PF 1n 七 Ou セ も sub 


配列 の 添字 の 計算 


IF Y*="* 
RETURN 


変数 J」 の FOR 一 NEXT ル ー プ で 5 名 の 氏名 と 電話 番号 を 表示 し 、 


変数 1 の FOR 一 NEXT ル ー プ で 次 の パタ ー ン へ 移り ます 。 

5 名 ずつ の 表示 で すか ら 変 数 f の きざみ は 5、STEP5 を つけ れ 
ば は よい で すね 。 こ の 場合 T は 、1 、 6 、11、…… のり みよ うに あざ ぎみ 
変化 し そい きま ず 。 を し て くさ の 問 の 落ち も て いる 数 、2.8.4.8.7.8.9.10、 
9 が eg が 所 は 、 

"と いう 連続 し た 整数 列 を 作り 出し て いま す 。 こ の 値 は 3070 
行 で 計算 る きれ 、M に 代入 る きれ ます 。 こ の M の 値 を 配列 変数 AA$、 日 
B$ の 添字 に 使う わけ で すね 。 

3140 行 は キー 入力 待ち で 、 何 か キー が 押 き れる まで は 、 こ の 行 で と 
と まあ MG 

つま り 、 と たん な キー で も よい で すか ら 、 キ ギ キー 入力 が ある と この 簡 あ 
抜け て 3150 行 の N EX 丁 文 に 行き 、 次 の 5 名 が 表示 きれ る わけ で す 。 

画面 の 表示 に は 、 前 に 説明 し た PRINT USING 文 を 使っ て い 
9 

& と の 間 の スペ ー ス の 数 は 、 氏 名 で は な 〈 く 住所 な ぼ で す と も る っ 


ふ や き な けれ ば な ら な いで し ょ う 。 ス ペー ス の 数 と か 、 表 示す る 位置 、 
つま り LOCAT セ E 文 の 座標 な ど は 、 実 際 に プロ グラ ム を 実行 きせ て 、 


開 役 ずる は よい で も し まき う 。 
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Hi any key for next!" 
THEN GOTO 3140 
重い 





STEP 
《 注 >3030 行 、3040 行 の 文字 
型 変 数 E1$、E2$ は 、 
PR ENT . け 人 @ 自 際 人 族 
で 使用 する 編集 用 です 。 こ 
の ブロ グラ ム で は あま り 使 
いま せん が 、 ゆ S 由 骨 旧 放 
を 使っ て の 出力 並び が 同じ 
も の が た くさ ん ある と き は 、 
この よう に 変数 に 代入 し て 
お く と 便利 で す 。 


PRINT_ USING 


き あ 、 こ れ で 完成 で す 。1000 行 な よび 2000 行 か ら の サブ ルー チン は 
前 除 し ませ ん で し た か ら 、 ち ゃ ん と 残っ て いま すね 。 リ スト コマ ンド 
で 能 認 し て み で 《 だ きい 。 

RYDk の の も し だ が なら: し そ 更 庄 表 区 ょ う 。 


ここ で きっ を く 実 行 し て みた い の で す が 、 そ の 前 に も う 少 ヒデ ー 
を あれ WW0 お きま も 2。 
LYCOS UY | 


メニ ュー 画面 が 現れ まし た ら 、 


まずく 
画面 の メッ セー ジ に 従っ て 、 次 の デー タ を 入力 し て くだ さい 。 


サ 上 ルト ヒ ” サス ケ 000-111-222Z 
キリ カク レ サイ ゾ " リ 333-444-5555 
ミヤ モト ょ ぁ サ シラ 666-777ー88898 


えん 力 A り まき し た ら 。「 本 みみ 、 ズ 、 そ せ ルズ みぎ 和 スカ 」 の メタ 油 
ー ジ に 対し て 「y」 を キー イン し 、 メ ニュ ー 画 面 に 戻り ます 。 

な 0 て 

ゃ が て 、 こ の プログ ラム が 実行 きれ 、 次 の 画面 が 現れ ます 。 







キキ 二 十 テー タ / イン サ ツ + 十 
4 スリ コツ ツ シンバ Y ペ 


1 ト 2 が 7 イ TTX TEL 000-000-0000 
ク グ (NBNS EZ コジ トド TEL 111-111-14111. 
3 ボ 27 ノル フナ の TEL 222-222-2222 
7 テル に の し TEL 333-333-3333 
5. アラ イ ハク セキ _ TEL 444-444-4444 


Hi も any key Tor next! 


これ は 、 デ ー タ ファ イル の 中 の 最初 の 5 多 が 表示 きれ だ と ころ で す 。 
10 キー を 格 し ます も 次 の 8 名 。、 も 9 一 度 細 す と 先ほど 書き 込 
ん だ 3 名 の 電話 番号 が 表示 る れ ま す 。 


114 


+ キ キ 二 テー タダ / イン サリ エエ ユエ 
5X イ ネイ 7 ビョウ シラ マカ 


り リル トビ りん が 「 中 UUU 1 2222 
キノ グレ ノリ 則 還 で 50262sjsteo 


SEINIA リウ EE 660627/7C888B 
「 由 E ト 
EE 


Hi も an ロッ key 千 or nex 寸 ! 





どう で すみ wu ちゃ ん 書き まれ て で いま し も が だ かり 
ここ で リタ ー ン キー を 押し ます と 、 は ほ が の 仕事 を する か どう か の メ 
ッ セ ー ジ が 表示 ぎれ ます 。 と りあ ぇ え ず [nmn」 と キー イン し まし \ う 。 





デー タ を プリ ンタ に 出力 
これ て 一 7 エタ を 画面 に 凌 示 する と と は で きま し だ た だ 。 次 の ルン 
タ に 測 包 し し で あま し W! の 。 
この 操作 は 、 こ こま で で き て いれ ば きわ め て 簡単 で 、 
の で し が etL 、 
せっ かく 画面 に 表示 し だ の で すか ら 、 こ れ は その まま 生か し 、 さ る さら に 
LPRTENT 天 退 加 ず る こと に し まあ し ょ う 。 
LPRINT 丁 文 の 入れ る 場所 で す が 、 
0 二 の だ 
次 の ステー トメ ンド を 追加 も し ます が 、 こ れ は スク リー シン エ デ ォ タ に 
よっ て 簡単 に びき ます 。 わ ざわ ぎざぎざ キー イン する 必要 は あり ませ ん 。 








LPRKINT _ USING E1 ま 5M。 AA ま (NM)5 


LPRKINT _ USING E 上 2? BB まま (MM) 








まず 、3090 行 の 3 の 上 に カー ソル を 重ね 、[3] [1| [0| [中 ほし キー イ 
ン し 、 次 に PRINT の P の 上 に カー ソル を 重ね 、 キー を 押し 、 
イン サー トモ ー ド に し て か らし を キー イン し キー を 押し て 終り で 
ず 。 
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3106 行 は 同じ よう に 3100 行 を 修正 すれ ば よい で すね 。 

この スク リー ン エ デイ タ に よっ て 、3090 行 、3100 行 は 消 を る こと は 
| 〔 - あり ませ ん か ら ご 心配 な 〈。 

行 番号 が 少し ふぞろい に な り ま し た 。3105 行 以降 も 10 番 きざみ に な 
E 下 包ま も よう 。 


RENUM 3110,3105 
| 

| 

| 








ら 湊 Cu も ry 本 本 7 の だ で は:。 
を それで は RUN き る きせ て み ま し ょ う 。 次 の よう に 打ち 出る きれ て きま 上 】 
だ が) 7 





トク カ ” リ イエ ヤス 000-000-0000 
ドド トミ も 7 ユウ ルル ま あの あ 小玉 上 
オダ / ノ ナチ 肖 。 メメ イメ スス エズ イメ ズ 4 
アリ ミネ ザビ 9 C だ CC だ EAC KKC 
アラ イ ハク セキ 444-444-4444 
JA 2 上 9 サン ee ho io 
カイ ホ セイ リョ ウ 666-666-6666 
ヨタ ダ ゲ 7 ッッ コ リツ RA 。 


OO て へい ひい ロロ 尽 の い ビ 


サト リ り イリ サイ 888-888-8888 
ヨシ ダグ ラ ョ ヨリ イツ ツア プー アア クー プッ アア 
サル ト ヒ ” サス ケ 000-111-2222 
キ り Mj クル (パッ う 333-444- う 555 ら 5 
ミヤ モト ム ぃ りう 666-ー ア アー8888 

















上 5U 音 順に 印刷 する 

川 前 項 で 電話 番号 の リス ト を 無事 印刷 する こと が で きま し た が 、 こ 和 れ 
| は 私 た ち が キ ー ボ ー ド か ら 入 力 し 、 登 録 し た 順に な っ て いて 、 氏 名 が 

川 50 音 順に な っ て いま せん 。 こ れ を 50 音 順に 並べ か えて 印刷 すれ ば 、 何 

| か と 使い 勝手 も よく な る の で は な いか と 思い ます 。 

| 旧 ソー ト この よう に 順序 を 並べ か える こと を ソー ト と 呼び 、 ビ ジネス の 分 野 

則 で は 、 数 値 を 大 きい 順に 並べ たり 、 小 きい 順に 並べ で た り 、 と に かく 、 
| 





よく 使わ れ ま す 。 


| 
旧 116 








私 だ ちゃ る 、 こ こ で ソー ト に チャ レン ジ し て み ま し ょ う 。 
6 6 3 〈 注 > 下 の プ ログ ラム は サ 
この 電話 岩 リ サス ト で の ソー ト は 、 数 値 で は な く (文字 を 並 さ か える こ プリ レ マ 語 誠 衣 訴 記 ミ 
と に な り ま す が 、 原 理 は 同じ で す の で 、 ま だ た 、 そ の ほう が 理解 し や す も か まい ませ ん 。 NmT 
8 する 方 は NEW コ マン ド を 
いと 思い ます の で 、 数 値 を 例 に と っ て 説明 し ます 。 と な RE 
次 に 簡単 な ソー ト プ ロ グラ ム を か か ば げ ま す 。 さい 。 


OF 七 1n9 


FUR 1=1 TO 5 
READ A(1) ソー ト す る デー タ を 配列 に 読み 込む 
PRTINT _ ACT) "< ュ ___ _ ソート 前 の デー タ を 画面 に 表示 
NEXT 1I 
PRINT これ を 入れ て お か な いと ソー ト 後 の デー タ が 
が 続い て 表示 され て し まう 
FOUR =1 TO 4 
K=1 
FUR J=I+1 TO 5 


IF A(J) く AX(K) THEN K=J ーー 小さ い 値 が あれ ば ポイ ンタ K を 
NEXT J その 値 の と ころ に 合わ せる 


SUAP A(T)。A(K)ーーーーーー ーー ポイ ンタ K の 指し 示す 配列 A(K) の 内 容 と 
NEXT 1 配列 A(|) の 内 容 を 入れ か える 
FUR IT=1 TO 5 

PRINT A(T)" ぅ ニーーーーーー ソ ー ト 後 の デ ー タ を 画面 に 表示 
NEXT I 


DATA は 。 よ 92 ソー ト す る デー タ 





この ソー ト は バブル ソー ト と 呼ば れる も の で 、 も っ と も 基本 的 な も 
上 す 。 

方 法 は 、 ま ず ソ ツー ト す る デー タ を 配列 に 読み 込み 、 あ る 1 つの デー 
タ を 基準 に し て 、 次 々 と 他 の デー タ と 大 き さ を 比較 し て いき ます 。 
だ と えば 、 小 さい 順に 並べ さる の で し た ら 、 基 準 し な っ て いる 数 より 
小さ い 数 が 現れ た ら 、 今 度 は その 数 を 基準 に し 、 次 の デー タ と 比較 し 
いき ます 。 

この よう な 操作 を 次 々 と くり か え ぇ し 、 最 後に 基準 に な っ て いる デー 
タダ を 先頭 の ほう へ も っ て きま す 。 


この 比較 する 基準 し な る デー タ は 、 ポ イン タ に よっ て 指し 示 き れ て ( ポイ ンタ 
いま す 。 上 の 例 で いい ます と 、K が ボイン タ に な っ て いま す 。 
小さ いも の を 先頭 に も っ て くる 作業 は SWAP 文 で 行い ます 。 SWAP 


230 行 の SWAP 文 の 意味 は 、A(I) と A(K) の 内 容 を 入れ か える と 
いう こと で す 。 上 の ゲロ グラ ム に を そっ て 、 もう 少し 説明 を 加 導 | 
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最初 の ルー プ 、 つ まり 1I= テ 1 で]J の ルー プ グ に 入っ た と き の 状 態 は 次 の 
ょ うに な っ て いま す 。K= テ 1 です から ポイ ンタ は 矢印 の 所 に あり ます 。 





ここ で A(1) と A(2) の 内 容 を 比較 し えま 圭 。4 う 4、 つ ま 邊 ポイン 
タ が 指し 示す A(1) の 内 容 よ り 小 さい 値 が で て きだ わけ で すか ら 、 ポ 
イィ ンタ を を の 小 き い ほ う の 値 の と ころ に 合わ せま す 。 こ の 場合 2 番目 
で すか ら K=2 に な り ま す (210 行 の K=」 の 操作 を し だ た わけ で す )。 
ポイ ンタ が 移動 し て 次 の よう な 状態 に な り ま し た 。 





次 に 、 ポ イン タ が 指し 示す A( 2 ) の 内 容 と A(3 ) の 内 容 を 比較 し ま 
す 。 こ の 場合 は 1 く 5 で すか ら ポ イン タ は 動き ませ ん 。 

次 に 、 や は り ポ イン タ が 指し 示す A( 2 ) の 内 容 と A(4 ) の 内 容 を 比 
較 し ます 。 こ の 場合 も 1 く 3 で すか ら 、 ポ イン タ は 相変わらず A(2) 
の と ころ を 指し 示し て いま す 。 

最後 、 現 在 の ポイ ンタ 位置 A( 2 ) の 内 容 と A(5 ) の 内 容 を 比較 し ま 
す 。… き の と き の 状 態 は 次 の よう に な っ で いま す 。 

















当然 1< く 2 で すか ら 、 ポ イン タ の 位置 は 変わ り ま せん 。 

これ で I = 1 の と き の 」 了 の ルー プ を 1 回 終 を なわ け で す 。 で すか ら 
次 の I の ルー プ " に 行く 前 に 、 最 小 値 、 つ まり ポイ ンタ が 指し 示し て い 
る 配列 の 内 容 を A(1) の 内 容 と 入れ か を な けれ ば な り ま せん 。 こ の 操 
作 を 230 行 の SWAP 文 で や っ て いま す 。 

入れ か えた 状態 は 次 の よう に な り 、A(1) の 内 容 は 5 つの 数 の 中 の 
最小 値 と 確定 し まし た 。 




















次 に =2 の ルー プ で は 、 最 初 の ポイ ンタ KK は KK=I で すか ら 2 に 
セッ ト さ る れ 、 図 の よう な 状態 に な り 、 ポ イン タ の 指し 示す A(2) の 内 
容 と A(3) の 内 容 を 比較 する こと か ら 始 まり ます 。 

以下 、!I=1 の ルー ジ の 説明 と 同じ 操作 が くり か えさ る され ます 。 





確 定 


この ルー プ で は 、。 ポ イン タ は 最終 的 に は A(5) を 指し 示す こと に な 
り 半 
117 ペ ー ジ の サン プル プロ グラ ム を 実行 する と 次 の よう に な り ま す 。 


ソー ト 前 の デー タ 
SCO 





ソー ト の 原理 は わか っ て いじ だ だ け ま し だ か? 

次 に 本 項 の テー マ 、 ば 入り あず が 、 
文字 で あっ て も 仕組 み は ま っ だ く か わり ませ ん 。 

数 字 の 場合 で す と 、 そ の 大 小 は すゞ で 判 断 で きま す が 、 文 字 の 場合 に 
結 ど うな っ て いま の WP ル は が か 。 

だ と えば 『「 ア 」 の ほう が で ず カ 」 よ り も 前 に ある こと は か で す ' が 、 
ぁ この こと を コン ば ェ ー タ は 合 刊 断 し て いり る 6 の て しょ よう が? 
みな さん 、 ky の さぞ で あじ や 素直 
ュー ザー ズ マ ニュ アル の の 衝 北 て だ る Ve 
「 ア 」 が 鐘 古 BB.1、 シ と が を 旨 DD、10 進 数 に な お し て 177 か ら 2 和 まで 
な っ て いま す 。 こ の 数 字 の 大 小 で 、 ど ちら の 文字 が 先 に ある か わか 
る わけ で す 。 つ まり 、 文 字 の ソー ト も 数 字 の ソー ト に 帰す る わけ で す 。 


< 


上 SC( アア )。ASE( カカ ) ASC( ラ ) 
17 182 の 


れ 


2 
に に 務 - Lo by 
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前 ペー ジ の 画面 の よう に ダイ レク トモ ー ド で キー イン し 、 テ スト し 
ASC 関 数 で 下 て 〈 だ きい 。 さら る で は A ん る CC 関数 (アス キー) を 合っ て いる ず ず 相 
これ は 、「 文 字 」 を 対応 する キャ ラク タコ ー ド (10 進 表記 ) に 変換 す 
る 機能 が あり ます 。 
環 画 を ざら ん に な る と わか る は お り 、 キャラ タタ コード に よっ て て 共 
字 列 の 大 小 を 判断 する こと が で きま すね 。 
で は ば は 、 ソ ー テ ィング 部 分 の り サ プ ブルー チン を 次 に し ます 。 








da も ta or セ も sub 





FOR IT=1 TU し 
K=1 


FOR J=I+1 TOU し 
IF AA$(J) く AA ま (K) THEN K=J 
NEXT J 
SMUAP AA ま ( [ ),AA ま (K) : SMAP BB*(T ) BB まま (K) 
NEXT 1 


RE TURN 電話 番号 も 同時 に 入れ か える 





< 注 > 117 ペ ー ジ の サン プル 117 ペ ー ジ の サン グル グロ グラ ム と 比べ て い だ だ ぜ く と 、 形 が だ いだい 
人 旨 開 nt 。 同じ て ず か ら に わが きよ 選 いま す 。 
ロー ド し て か ら 上 の リス ト た だ 、SWAP 文 で 氏名 を 入れ か える と き 、 電 話 番号 も 同時 に 入れ 
二 館 AN な どい 、 誠 売る る は 独語 内 V 人 で 4 だ きい 。 
な お 、 文 字 列 の 2 文字 目 以降 の 比較 も コン ピュ ー タ の 内 部 ルー チン 
が 自動 的 に 処理 し て くれ ます 。 





次 に 、 序 刷 形式 に 2 つの オプ ショ ン を 持た な せる こと に し ます 。 つ まき 
り 、 登 録 順 と 50 音 順に 印刷 する 方 法 で す 。 こ の だ め の ス テー トメ ント 
を 170 と 180 行 の 間 に 入 れ て お きま す 。 











172 LOUCATE PRINT 1、 ト 9 ロク リュ ン 、 
174 LOCATE PRIMT 2 504 し 58 ュ ッ 


176 LOUCATE INPUT "AA" ン コ " ウ ラ ト "9 ソ ツ " "3P 
1 78 ITF P=2 LAG=1 2 を 選択 し た ら フ ラグ を 立て る 





176 行 の I NPUT 文 で 2 番 を 選択 し た 場合 に 、178 行 で フラ グ を セ 
フラ グ の セッ ト KCt す 人 世 放 る ). も で mn まず 。 こ の フラ グ は に よら て 、 さ ちら を ん 杜 
か わか る わけ で す 。 次 の ステ ー ト メン ト を 追加 し ます 。 


205 IF FLA6=1 THEN GOSUB 4000 


| 120 








フラ グ が 1 に セッ ト る れ て いれ ば 、 ソ ー テ ィング サブ ルー チン へ 飛 
が ご 他人 0 3 
ソート ず る 、 し な い に か か わら ず 、 有 印刷 部 人 外 は まっ た (同じ パプ 。 


や っ と 、 こ の 餅 の プログ ラミ シング も 終り まし だ 守 入 き ぜ や あま 
ょ う 。 (PF3 ) キー を 押す と 次 の 画面 に な り ま す 。 





ここ で は 2 を キー イン し 、50 音 順に 印刷 し て み ま し ょ う 。 
いか が で すか 7? ソー ト さ る され て いま すか ? 


リザ さ ミ リビア ML 92 
2 アラ イ ハク セキ TEL 444 
オダ プク ナ か よし ンプ の 
中 カイ ハル" ラ エケ か ン 0 
つ カイ ホ セイ リョ リウ TEL 666 
6 キネ リカ" クレ サイ ゾ “ ウ EL 3 ば 3 
7 サト ウ り イ ウ サイ TEL 888 
9 サル トピ ヒ ” サス か TEL 000 
フ トク カ “ り イエ ヤス TEL 000 
(トド SS コ ラッ 1 も: 
よ 人 (ミキモト ム サ ッ も TEL 666 
よる ヨウ ラク リリ 本 | 電 Ni 
クダ, の サイン EL 、 7 ウタ 
14 上 
上 つ 


〈: 宇 > レン と 0 、 あ る と こ 件 
間断 の 目 じ る し に する も の 
で 、 変 数 名 は 何 を 使っ て も 
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カ 


7 


じ ま し 


の 


の プログ ラム の セー ブ は も 


さい 。 


7 


> 
EN 


に つ 


や 
376 
づり 
3 
\ フ 
や 
SN 
23) 
2 
人 く 
mo へ 
FN 
)N 
人 
mi! 
It 
) ! 
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| 演 導 一 一 1 


| 本 節 の プロ グラ ム を 実行 する と 、「50 音 順 」 か 「 登 録 順 」 か の メニ 
ュー 画面 が 表示 る され ま す が 、 ど ちら か を 選択 し て 登録 リス ト の 画面 表 
示 お よび 印刷 に 移っ て も メニ ュー 画面 が すぐ に は 消 を ませ ん 。 この辺 
が ちょ っ と 不愉快 ど だ と いう 方 は 、 次 の プロ グラ ム を 入力 し て くだ さい 。 
この 問題 は 解決 し ます 。 


PRINT SPC(20 ) 
PRINT SPCX(20) 
PRINT SPCX(20) 


177 LOCATE 27,6 
178 LOCATE 27,7 


179 LOCATE 25。9 : 
180 IF P=2 THEN FLAG=1 
185 GOSUB 1000 





注 基 ーーー ク 


みな きる ん は 、 こ れ ま で 作っ た プログ ラム を 「 ユ ピー 版 の シス テム デ 
ィ ス ク 」 に セー ブ し て あお る だ け で は あり ませ ん あ ? 

ちよ つと し だ と 相生 カカ デイ スク を あざ も も て も しま うみ より の ば 
く あ り ま す 。 こ れ ま で の プロ グラ ム は あま り 長 て あり ませ ん か ら 、 も 
ッ ー 度 キー ニ イ ン ジン し な じじ て も た いし た こし は あり ませ ん が 、 長 (% グ ゲロ 
グラ ム に な る トウ ン ザ リル し ます 。 

そこ で も う 一 覆 デ イス ク を 用 意 し 、 い ま 使 っ て いる デイ スク を を っ 
コラ ぴの し で 杉 く と ML L の 

方 法 は 1・5 節 で 説明 し た か ら わ か り ま すね 。 


以後 、 新 し い プ ログ ラム を 作っ て セー プ ブ す る と き は 、 こ の 2 つの デ 
イィ スク に セー グ し て お で こと を 反 す す めし ます 。 
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ラン タム ファ イル | 


| 


Y 


) 





cA 








_ 4・] ラン ダム ファ イル に つい て 


| ラン ダム ファ イル と は いっ だ いな ん で し ょ うか 。 
| 私 た ち が 前 章 ま で に 勉強 し た シー ケン シャ ルフ ァイル は 、 あ る デー 
| タ を 読み 出し た いと いっ て も 直接 読み 出す こと は で きま せん で し た 。 
検索 に し ろ 、 修 正 に し ろ 、 そ の デー タフ ァイル に 書き 込ま れ て いる 開 
ー タ を 、 好 き 嫌 い に か か わら ず 、 初 めか ら 読 み 込 ん で いか な けれ ば な が 
いま 半 ん て し 7』 
要する に 、 長 き の ま ち ま ち の デー タ が 連続 的 に 書き 込ま れ て いた だ わ 
け で すか ら 、 書 き 込 まれ だ た デー タ の 並び に は 規則 性 が あり ませ ん 。 
ご 和 に 対し て ラン ダム ヲタ ァイル は 、 デ ー タ が 一 定め 沢 め 6 和 た 長 較 
で 書き 込ま きれ て いま す の で 、 当 然 、 デ ー タ の 書き 込ま れ 方 に 規則 企 稀 
で て きま す の ぜ で 、0P あ じ 讐 置 し て いる が し いう こよ る ん を わか れ は ば は 、 男 
- 接 に 読み 出す こと が で きる の で す 。 
右 ペ ー ジ の 図 を ご らん くだ さい 。 
これ は 、 前 章 の 電話 帳 の 氏名 ・ 電 話 番号 の シー ケン シャ ルフ ァイル 
と ラン ダム ファ イル で の 書き 込ま れ 方 を 図式 化し た も の で す 。 
- シー ケン シャ ルフ ァイル で は 、 各 項目 が 、 コ ユン マ で 区 切ら れ て いる 
だ け で 、 ビ ッ シ リ つめ こま 愉 で いま す 。A が あり ます が 、 こ れ は 旭 還 
名 を 分 ける た め に 必要 な スペ ー ス で す 。 
文字 は 1 文字 が 1 バイ ト で 書き 込ま れ ま すか ら (た だ し 滴 点 は 1 朗 
学 分 で すか ら 「 ガ 」 な ど は 2 バイ ト 必 要 で す が 、 説 明 上 ここ で は 織 
イト は 考 ん た ん ます)、「 ト ク が ワウ イエ ヤス 」 は 9 パイ ト 、「 オ ダ `~ 清 
ナダ が) は 7 4 ト と う よう に 、 長き は ば は 一宮 し て お おり ませ ん 。 
この よう に シー ケン シャ ルフ ァイル で は レコ ユ コード の 長き が 決ま っ 填 
可変 長 レ コー ド いま せん の で 「 可 変 長 レコ ー ド 」 と 呼ば れ 、 デ ィ ス ク の 使用 効率 も 非 
常に よい の で す が 、 フ ァイル の 何 番目 に 位置 し て いる か は 、 一 度 デ ー 
タ を 全部 読み 出し て みな けれ ば わか り ま せん 。 
一 方 ラン ダム ファ イル は 、 図 の よう に 氏名 お よび 電話 番号 の うし ろ 
に ムダ な スペ ー ス (へ 印 ) が だ た くさ ん あい て お り ま す が 、 い か に ゃ 到 
用 放 然 と 並ん で いま す 。 
則 図 の 場合 で す と 、 ど の デー タ も 氏名 に 17 バ イト が 、 電 話 番号 に 212 パ 
央 イト が 割り 当て られ て いま す 。 シ ー ケ ン シ ャ ルフ ァイル で し た ら 6 議 
| ク ガ ワリ イエ ヤス 」 の 場合 、 氏 名 と 電話 番号 で 9 12 で 21 バ イト で 計 
唱 上 むと ころ を ラン ダム ファ イル で は 17 バ イト も よけい に ムダ な 使い 方 
| し いる ゆめ で す 。 
し か し 、 メ リッ ト も お お い に あ り ま す 。 各 デー タ の 書き 込ま 覆 症 還 
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ンダ ム フ ァ イル 


MI 


トク ガワ ムイ エ ヤ ス へ へ へ AAAA へ A | 


オダ ムン ノ ジ ナ 汰 


ア ケ クチ ペペ ツ た 


キリ ガク レ ヘ サイ ゾウ 「 3839.444. 5 


5606 テテ 777 て 8886 


が 一 定 し て や きず の で (ラン ダム クア デ イル の シレ ロー ば は *F 定 長 レ 
ョ ーー トド 」 と いい ます )、 イ ン デ ックス に より |、 誰 々 きん は 価 番 目 に 書き 
衝 ま れ て いる と いう こと が わか れ ば 、 シ ー ケ ン シ ャ ルフ ァイル の ょ よう 
に 全部 読み 出さ なく て も 直接 に その 個所 だ け 読 み 出 すこ と が で きま す 。 





第 2 章 第 2 節 で 簡単 に ふれ まし た が ディ スク に は サイ ド 、 ト ラッ ク 、 





定 長 レ コー ド 


セク タ と いう 単位 が あり まし だ た 。 ラ ンダ ム フ ァ イル で の 読み 書き は 、 セク タ 
mm 番 小さ な 単位 、 つ まり セク タ ご と に 行わ れ ま す 。 そ し て 1 セクタ は 
856 バ イト で す 。 1 セク ター テー256 バ イト 


て すか ら 、 こ の 256 バイ ト 以 内 で 各 項 目 に 決め られ た (固定 され た ) 
長き を 割り 当て な けれ ば な り ま せん 。 

火 ペ ー ジ の 図 を ご らん くだ さい 。 図 欠 、 図 @ に も 、 1 モク タ 256 バ 
f 下 に DM (ダイ レク トメ ー ル ) 用 の 各 項 目 を 割り 当て た も の で す が 、 
関 答 に は 1 名 分 、 図 @ で は 3 名 分 入っ て いま す 。 図 @ の 場合 は 、、 ず い 
ポ ん 未 使 用 の 部 分 が 多く ムダ な 使い 方 を し て いま すし 、 一 方 図 @ で は 
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人 図 @ 





1 
| _  」48 バ イト 使用 


I6 バ イト 使用 





@ 項 目 、 レ コー ド 

上 の 図 の 「 コ ー ド 」「 氏 名 」 
「 郵 便 番号 」「 住 所 」「 番地 」 
な どの 1 つ 1 つ を 「 項 目 」 
kyk9 杯 二 G そし て 、 こ れ 
ら を ひと まとめ に し た も の 


を 「 レ コー ド 」 と 呼び ます 。 
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余り が 16 バ イト で 大 変 効率 的 で す 。 

この て らい の 人 数 で す と 、 メ モリ の ムダ づか い の 様 子 は まだ 実感 と 
し て わか り ま せん が 、 た と えば 100 人 の DM (ダイ レク トメ ー ル ) 用 デ 
ー タ ファ イル を 作る 場合 、 書 き 込み は 256 バイ ト (1 セク タ ) 単位 で 
行わ れ ま すか ら 、 図 輸 の 場合 100 セ クタ 必要 に な っ て きま す 。 と ころ が 
図 @ で す と 、34 モ クタ あれ ば 十分 で す 。66 セ クタ も 差 が で て きま す 。 

ぐ の よさ う に 、1 セグ タ 肉 て フォ ー マ ッ ト を と う 決 ゆめ て いく が か が に よっ 
て 、 ラ ンダ ム フ ァ イル に お いて も 、 シ ー ケ ン シ ャ ルフ ァイル と 同 じ よ ょ 
うに ディ スク を 有効 に 活用 で きる の で す 。 

こう 考え ます と 、 慣 れ で し まえ ば ぼ ば 。、 ラ シダ ム フ ァ イル の ほう が ずっ 
便利 に 使え を ます し 、 い や 、 ビ ジネス の 分 野 で は どう し て も ラン ダム 
ファ イル で な けれ ば 用 を な きる ない と いっ だ ほう が よい か も し れ ま せん 。 


以上 、 ラ ンダ ム フ ァ イル に つい て の 概略 を 述べ まし た が 、 少 し わか 
り に く か っ だ た か も し れ ま せん が 、 わ か ら な けれ ば その まま に し て 、 少 
し ずつ 具体 例 を 学習 し て いき まし ょ う 。 や が て 、 を の 仕組 が 理解 で き 
る と 思い ます 。 

コン ピュ ー タ は 理屈 、 理 論 の 面 も お お い に あ り ま す が 、 と くに ツ フ 
ト の レベ ル で は 、 実 際 に や っ て みて 、 体 で 覚え て し まう の が 一 番 早 い 
(0 





ファ イル を OPEN する 


ラン ダム ファ イル の 場合 も シー ケン シャ ルフ ァイル と 同じ よう に 、 
デー タダ ファ イル に 合 か 書き 込 パ だ り 、 あ あい は が 遇 じじ た りす る 上 き 、 
ファ イル を OPEN し な けれ ば な り ま せん 。 

これ は 、 前 に も 説明 し まし た が 、 本 と か ノー ト の 内 容 を 見 る と き に 
ペー ジ を 開か な けれ ば な ら な い の と 同じ で す 。 「 

書式 は 、 シ ー ケ ン シ ャ ルフ ァイル と 形 は 同じ で す が 、「 モ ー ド 」 指 定 
が 今度 「R」 に な り ま す 。 OPEN 


DPEN R ,#1。 1sDMAILDAT “ 


ー ド ライ ブ プ 番 号 
ファ イル 番号 
ラン ダム ファ イル モー ド 





ファ イル ディ スク リプ タ の 扱い は シー ケン シャ ルフ ァイル の と き と 
同じ で す 。 ド ライ ブ グ 0 の 場合 に は ドラ イブ 番号 は 省略 で きま す 。 
ファ イル 番号 (使用 する バッ ファ 番号 ) は 、 デ イィ スク 起動 時 の 


Hou many disk files(0-15)? 護 


で 指定 し た 数 を 超え を て は いけ ませ ん 。 
まだ た 、 シ ー ゲ ダン シャ ルフ ァイル で は TINPU 生 モー ド 、APPBEN 
D モ ー ド の 場 信 に は 、 OPEN した! とき ディ スネ クタ ファ イル 誠 夫 いと 、 


File Not Found 
の エラ ー メ ッ セ ー ジ が で まし た が 、 ラ ンダ ム フ ァ イル の 場合 は OPE 
N 父 だ け で は エエ ラー は 出 ま せん 。 


この OPEN 文 で ファ イル を 開い て は じ め て 、 デ ー タ を 読ん だ り 書 
い だ り する こと が 可能 に な り ま す 。 


ファ イル を CLOSE す る 


ファ イル を OPEN し て 、 使 い 終 っ た ら 、 行 儀 よ く て CLOSE す る 
こと に も し まし ょ う 。 こ れ は 、 シ ー ケ シン シャ ルフ ァイル の 場合 と まっ た 
位 e が CLOSE 


CLOSE 揚 1 。 拉 2 


ファ イル 番号 





ファ イル 番号 が 省略 され だ と き は 、 そ の と き OPEN し て いる ファ 
イル が すべ て CLOSBD る あれ ます 。 フ ァイル 著 号 は 上 記 の よう に め る 
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| で 1 9 つ で 0 か まい ませ ん 。 コ ンマ で 区 切っ て 複数 指定 で きま す 。 


デー タ 書 き 込 み の 前 準備 


ファ イル を OPEN し た と いう こと は 、「 を その ファ イル を これ か ら 使 
いま す よ ょ 」 し に と 宣言 し た こと E に は な り ま す が 、 こ の まま で は 書き 込み 編 
で きま せん 。 前 準備 が 必要 な の で す 。 
128 ペ ー ジ で ダイ レク トメ ー ル 用 の デー タ の 割り 当て を 行っ だ よ ょ 2 
に 、 1 セクタ (256 バ イト ) の 中 を 、 ど ん な 項目 で どん な 割り つけ を し 
て 使う の か 、 そ の 形 を 決め て お か な けれ ば いけ な い の で す 。 
氏名 に は 何 バ イト 、 住 所 に は 何 バ ば イト 、 と いう よう に 定義 し て お く _. 
必要 が ある の で す 。 こ の 定義 は F1ELD (フィ ー ル ド ) 女 に よっ 替 
行い ます が 、 ラ ンダ ム フ ァ イル で は 、 こ の 決め られ だ た フォーマット 皿 
従っ て 、 ど の レコ ュ ー ド も 同じ 様式 で 書き 込ま れ ま す 。 
FIELD 文 F IELD 文 の 書式 は 次 の と お り で す 。 





























FIELD #1.15 AS A1 ま ま 。 AS A3 ま 


| UM に あの 
フィ ー ル ド 幅 (バイ ト 数 ) 
2 





この 例 で す と 、 フ ァイル 番号 1 番 ( ほ と い う よ り 1 番 バ ッ フ ァ ) に 交 計 
字 変 数 A 人 1$、A2$、A3$ に それ ぞ れ 15 バ イト 、20 バ イト 、502 
イト の フィ ー ル ド 幅 を 割り 当て た こと に な り ま す 。 で すか ら 、 実 質 便 
用 フィ ー ル ド 幅 は 85 バ イト に な り 、 残 り (256 一 85) の 171 バ イト は 使 
松 な いこ ちり 人 が がり ポ 。 

フィ ー ル ド 幅 の 合計 が 256 バイ ト に な る まで 、 ど の よう に 割り 当て 
て も か まい ませ ん 。 そし て 割り 当て を 行う 変数 は 必ず 文字 変数 を 使い 
ます (扱う デー タ が 数 値 で わっ て も 、 で す 〉 

FL ELD 文 侍 よ っ て 、 バ パッ テカ 央 た 移 数 の @ エ リア が が 決ま りえ し 清 
| が 、 書 き 込 む 前 に も ぅ 1 つ 準 備 が 必要 で す 。 
川上 それ は 、 こ の F IELD 文 の 定義 に 従っ て 、 書 き 込 む サゲ データ を バッ 
冊 ファ 上 に セッ ト し な けれ ば な り ま せん 。 つ まり 、F IELD 文 で 使わ 
上 LSET( エ ルセット ) れ て いる 変数 に 、 そ れ ぞ れ 対応 する デー タ を は めこ む の で す 。 
川上 RSET( ア ー ル セッ ト ) この 、 デ ー タ を バッ ファ 上 に セッ ト す る 方 法 に 次 の 2 つが あり ま 英 
































⑯ LSE T A1 中 =X ま バッ ファ 上 の A 1$ に XS$ の 内 容 を セッ ト 


@② LSE | A2=Y ま ま バッ ファ 上 の A 2 $ に Y$ の 内 容 を セッ ト 
9 RSE ] A3 中 = アア まま バ パッ ファ 上 の A 3 $ に Z $ の 内 容 を セッ ト 
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⑩ も の も と も に バッ ファ 上 の 変数 に 、X$、Y$ も 、Z$ に 入っ て いる 

文字 列 を セッ ト す る こと に 変わ り は な い の で す が 、 夫 の 場合 は LEF 

T、 つ まり 左 づ め に セッ ト さ る れ 、 ぬ の 場合 は R IGHT、 つ まり 右 づ 

ゆめ に セッ ト さ れる 点 が 違い ます 。 い ずれ の 場合 ち ね 、 セ ッ ト し よう と し 欠 MK 1S (メイ クイ ン テ 
た 文字 列 が フィ ー ル ド 幅 より 長い と き は 余分 な 廊 字 は 無視 きれ ます 。 NSR NM 
次 に 、 フ ィ ー ル ド は 文字 変数 で 定義 され て いま すか ら 、 数 値 デ ー タ  。 (メイ クタ ブル ドル) は 
を セッ ト す る と き に は 、 こ れ を 文字 型 に 変換 し な けれ ば な り ま せん 。 それ ぞ れ 、 整 数 型 、 単 精度 

政 値 が 整数 か 、 単 精度 か 、 倍 精度 か に よっ て 、 湊 の よう に 変換 方 法 が に に コッ 


列 に 変換 する 機能 を も っ て 
異な り ま す 。 いま す 。 


LSET B1 ま =MKT ま (XX 和 を ) 一 ーーーーーーーーーーーー 一 一 整数 デー タ の 変換 


LSET B2 ま =MKS$(Y! ) Pe 


LSET B3 も =MKD ま も ( ア 昔 )< ーーーーーーーーーーーーーーー 倍 精度 デー タ の 変換 





この 場合 LSE 耳 に な っ て いま す が 、R SETT で も か まい ませ ん 。 MK1I$ 
ここ て 1 つ 大 切な 注意 が あり ます 。 整数 デー タ 、 単 精度 デー タ 、 倍 MKS$ 
本 度 デー タ に 対応 する バッ ファ 上 の 文字 変数 (上 の 例 で は B 1$、B MKD$ 


2$、B3$) は フィ ー ド 幅 が 決ま っ て いて 、 そ れ ぞ れ 2 バ イト 、4 
バイ ト 、8 バ イト と な っ て いま す 。 ' 
で すか ら 、 数 値 デ ゲー タ を 書き 込む と たき は 、 数 字 の 型 に よっ て 次 の よ 数 値 デ ー タ の 


うに FIELD を 定義 し て お か な けれ ば な り ま せん 。 FIELD 設 定 





FIELDU #1.2 AS B1 ま も ,4 AS B2$,8 AS B3$ 
| 人 人 千 精 度 型 の 場合 

単 精度 型 の 場合 

! 整数 型 の 場合 


これ で デー タ 書 き 込 み の 下 準備 が で きま し た 。 





デー タ を 書き 込ん で みよ う 


シー ケン シャ ルフ ァイル で は PRINT 斗 文 を 使っ て 書き 込み を し 
まし た が 、 ラ ンダ ム フ ァ イル で は PUT( プ ッ ト ) 文 を 使い ます 。 書式 
は 次 の と お り で す 。 PUT 


PUT 基 1.S 


| デート に FSreーーーーーーーー ュー Pon 人: 本 


ファ イル 番号 
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ファ イル 番号 で 指定 る きれ だ バッ ファ の 内 容 (256 バ イト 分 ) を S で 
| 示さ れる セク タタ 番号 の と ころ へ 書き 込む (PUT す る ) と いう こと に 
| な り ま す 。 セク タ 番 号 は 省略 する こと も で きま す が 、 を その 場合 、 直 前 
| に 書き 込み が 行わ れ た セク タ の 次 に PU され ます 。 


ご こま で の プロ セス を まとめ る と 決 図 の よぶ に な り ま す 。 




















PUT 


MKI$ 
MKS$ 
MKD$ 





MKI$、MKS$、MKD$ に よっ て 文字 型 に 変換 され た 数 値 デ 
ー タ 、 お よび 一 般 の 文字 変数 が 、F IELD 文 で 決め られ だ フィー ル 
代 思 に そ 尼 で れれ ポッ プア 上 で も も ッ ト あ る あれ (LS 双 TRSETk こ 
の セッ ト き され た パッ ファ の 内 容 )(2566 バ イト 、 1 セグ クタ 分 ) が PUT 
文 に よっ て ディ スク に 書き 込ま きれ ます 。 

次 に 示す の は 書き 込み の テス トブ ログ ラム で す 。 

















te= モ prooram Tor random †ile 


4 


DPEN "R" 。 作 1。"1:TESTDAT “ ファ イル を 開く 
F IELD #1 2 AS CD も 。20 AS NM も ,15 AS TE 上 テー 


フィ ー ル ド を 定義 











INPUT "コー- ト " No.(END=9999 ) " 3 CD 

IF CD=99299 THEN GOTO 270 Av 
INPUT "ナマ エ ラ ト "9 ツ " "5 

INPUT "TEL No、 ヲ ト "9 ツ *"』B 





=6+1 1 レコ ー ド の 入力 ご と に 書き 込み セタ クタ を | ずらす 
| LSET CD ま =MKT ま ( じ D〉 
| LSET NM も =A ま ま [ パッ ファ 上 で デー タ を セッ ト 
LSET TEL ま =B ま 

| PUT #1.5 ディ スク に デー タ を 書き 込む 





























昌 GOTO 150 6 
CLUSE #1 ファ イル を 閉じ る 
END 
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プロ グラ ム は 複雑 で は あり ませ ん か ら 、 ご らん いた だ た だけ ば わか る と 
思い ます が 、 書 き 込 み ま で の 流れ は 次 の よう に な っ て いま す 。 デー タ 書 きき 込み の 流れ 


ファ イル を 開く (OPEN する ) 

フィ ー ル ド を 設定 する (F1ELD 文 ) 
デー タダ を 入力 する 

バッ ファ 上 に デー タ を セッ ト す る 
ディ スク に デー タ を 書き 込む 


あめ ら の ② め る @ 


これ が デー タ 書 き 込 み の 一 般 型 で す 。 この パパ ター ン さ きえ 覚え て し ま 
えば 、 あ と は ディ スク を どう 有効 利用 する か 、 フ ァイル の 形 を あど うす 
る か な どの 課題 が ある だ け で 、 そ れ ほ ど む ず か し く は あり ませ ん 。 

ュー ド は 4 桁 の 数 値 で 入力 する こと に し て あり ます の で 、210 行 で バ 
ッ プ アァ 上 に セッ ト す る 場合 、MEK 1 $ を 使っ で いま す 。 

書き 込む モク タ 番 号 は 、 コ ー ド 、 名 前 、 電 話 番号 一 式 を 入力 する ご 
と に 1 や 加 介 し て いま すず 。 

この ゲロ グラ ム で は 、 コ ユー ドイ て 2 パオ イト 」 独 章介 202Y4 トド 、 電 語 午 
号 で 15 パ イト と っ で いて 、 こ れ を 1 レロ ー ド AA し て ゆま 下がら 6、 金 者 
で 37 バ イト 、 し た が っ て 256 か ら 37 を 引い た 残り 219 バ イト は 未 使用 の 
まま 0 

プロ グラ ム を 実行 する 前 に 、 よ く お か す 間 違い を 1 つ 。 

Ft 表し 了 D 災 で 次 の よう な 設定 や する と 天 有 まで に な り ま すず 。 


200 FIELDU 拉 1。2 ASC ま も,20 AS NAME ま 
| | 4 氏名 に 対す る フィ ー ル ド 割 り 当 で 
コー ド に 対す る フィ ー ル ド 割 り 当 で 
コー ド と 氏名 に 対し て パッ ファ 上 の フィー ルド を 設定 じ た だ わけ で す 
が 、 前 者 は AS と C$ の 間 に ス ペー ス を 入れ 忘れ た 結果 ASC と いう 
予約 語 と 重複 し た た め に 、 後 者 は すでに NAME と いう 予約 語 が ある 
だ め に 、 ど ちら も 8yntax Erreor に な り ま す 。 
それ で は プロ グラ ム を RUN さ きせ て 、 次 の 6 名 の デー タ を 入力 し て 
み ま し ょ う 。 再び 、 前 章 の 方 々 に 登場 し て も らい まし た 。 


0001 トク カ " り イエ ヤス 000-000-0000 
0101 トド S&S も 7 ヨコ 2 DU コ ZZZー00UM 
UE 間 0 AA0NP ア J0y ァ / U り 4 うー111- コ 48 
3012 ゲッ きり 避 の " 2ZZ2Z2ー つ バー4444 
0133 アラ イ ハク セキ 03-000-5555 
2012 JA イ ル うり サッ 444-66-1111 
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コ ゴート” No。(END= ウ 9977 0001 
VABDNNeO/ AG0N グ カノ 1 上 ド ズ 


TEL No。 


ブ 


ト " ウ ソ ” 7 000-000-UUUU 


コー ト ” No (END=22227 0101 


IDU2AN ド リジン ( ト KS ビヨウ 

ZN の 0 を ウニ アン メ プ 0000 
lol eKWMI 当 に と ルル レル 江上 010P。 

マエ) フ トリ / ( 還 


ENO' 


DPEN RA WI CUTESEDATS 


に ニオ = eb の 
GLME た SR ) 
6 


Read ッ 
敵 陸 SYS 


Read ッ 
上 








上 の 画面 は 入力 中 の 様子 を 示し た も の で す 。 

コー ド 、 氏 名 、 電 話 番号 の 1 ブロ ッ ク の 入力 が 終る た びに カチ ッ と 
斉 が し て ディ スク へ の 書き 込み が 行わ れ ま す 。 6 つの デー タ て すか ら 、 
最後 の END マ ー ク (9999) が 入力 され る まで に 、 6 レコ ュー ド 書 き 込 
まれ だ と と に な 04 あず 


nm が 42 ルレ Phiror205 あ の 


ファ イル の 長 さ を 調べ る 
セク タ 数 


必ず 閉じ る こと を 忘れ ず に Z/ 


親しい 関数 が で て で きま し かな 』 7 

これ は 、 フ ァイル の 長き を 知る ため の 関数 で 、 P R I N 丁 文 で 上 の 
よう ね 入力 する と 、 す 〈F に 長き も 表 和 際 し て く 心 ます 。 上 の 画面 で は 
6 まな っ て いま ず まお 。 

も ちょ つと わか りか 47 で て あ た の で は あり ませ ん か 7 

を う て き 。. 私 汰 ちがい ok 人 WU だ の は 6 和 名 欠 の ガー コグ 、 リウ コー トド に 
恒夫 シセ コ ー ド だ っ た の で すず 。 そ を し て この 場合 1] レコ ー ド て 256 ダイ 
トド 1 セグ を 人 恒 選 て いま も だ か が りら 、 マダ ンプ アル で MES 
TAP 分 と LC 信 部 代 ひ モグ の スタ 放 上 直 有 し ゆい だ の で 
に 





ここ で あり mm 還 の て みた いこ 9 ます 、 
ドラ イブ 1 に 入っ て いる デー タデ ィ イス ク の ファ イル 名 を 画面 に 表示 
し で で で だ さき ぎゅ 。 選 . も 昌 今 コマ ンド で 和信 が っ だ で ず ま 糧 。 


PIE 、 1 





私 だ た ち が いま 書き 込ん を だ デー タフ ァイル が あり ます ね 。 そ の うし 
ろ の 数 記 を 見 て 《 だ きい 。 1 と な っ つて いま ず 。 

この 数 字 の 単位 は クラ スタ と いい ます 。 

2390 ペー ツ グ を ざら ん くだ きい 。 1 用 、 つ あり LN カッ ク M06 も カタ て 
構成 きれ 、 そ の 半分 、8 セク タ を 1 クラ スタ と いい ます 。 
ファ イル は すべ て 、 こ の クラ スタ 単位 で ディ スク 上 に 確保 され ます 
か ら だ だ を 加 Sl 下 グ ダ だ が だけ 使っ て も 、 89 セツ 使う で も 信 9 
1 錠 ス 久 だ 人 け あの ァイル の リグ ょ と し で 育 負 さき 秘 て まう の だ ず 。 
ある テア イル を 0 了 E 民 NMN も し U て 、1 駐 手 だ け 書き 込ん て も 、 窟 ほり 1 クラ 
スタ と どら 衝 T も 先 克 ます 。 

ファ イル が クラ ス 単 位 で ディ スク 上 に その エリ ア を 確保 する こと 
は お わか っ る で ゆい だ だ けけ ま し だ か Y 

この こと を きら 選 基 人 確 ずる た め に 、 1 つつ 実 内 あ し て み ま し ょ ! う 。 
火 の え ス え mo ドス MC 人 人 も で 0 だ tw 


| 145 S=6 | 


これ は どう いう と 8 か と いい まず と 、190 全 て ずつ 加算 す る S の 値 
を 「6」 に 初期 設定 し て いま す 。 

つき まめ の 、 89 MY う よう ロロ セク 和希 組 を あや し て る 砂 尺 也 
す が 。 ま て に @ も セク み ル 人 書 き 入 あれ いる め け で すか ら 、 人 き あ 和義 
8 、9 セ クタ と 書き 込ん で いき ます と 、8 と 9 の 間 て クラ スタ 数 明美 
わる 由 ず で す 」)(》 必 ラス 久 ば 8 や クタ で し 二 衝 ) 

一 方 、 ラ ァイル は クラ ス 久 単位 で 確保 き 入 る と 書き まし わ 瑞 細 
ら 。 9 セク タダ 分 書き 込め ば 、 デ ー タ ファ イル 「TESTDATRIS 
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クラ スタ を 確保 お する こと に な り ま す 。 
これ る さえ ぇ 人 確かめ られ れ ば 、 い まま で の 説明 を ご 理解 いた だ ける と 思 
4 


る あ 、 そ れ で は 、 次 の 3 名 の デー タ を 入力 し て くだ さい 。 


り 和 カイ ホ セイ リョ ウ ms he ia 選 g 生 和 
っ 000 に ト と 生計 / je さ コ 9 コー う 3 は 3 て 9333 
7U01 サト リウ イ ゅ サイ イク メメ ズ メ ズ ッ イ ズブ 


いい で すか が 7 
入力 が 終り まし た ら 、 再 び FILEES コ マン ド で デー タデ ィ イス ク の 
| ファ ル 名 を 画面 に 表示 し て みて くだ きい 。 


UIDES 1 


ETITIANDAT 
TELNUDAT 
TESTDAT 





| 必 ラ ズ メタ え で いる 
148 じ ClIuster= Free 





| Ready 
妥 





と みて すがり 

催 か に 2 クラ スタ 専有 し て いま す 。 

これ で 、 い まま で 不明 確 だ っ た 点 が だ いぶ は っ きり し た の で は あり 
ませ ん か ? 
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ラン ダム ファ イル の デー タ を 読む 


さて 、 私 だ ち は 9 名 分 の デー タ を ラン ダム ファ イル に 書き 込む の に 
成功 し まし だ 。 で も 、. ほ ん と うに 書き 込ま きれ て いる も か どう か 、 も ちょ ら 

と 心配 で すね 。 読み出し て 画面 に 表示 し て み ま し ょ 2 う 。 

ラン ダム デー タ を 読み 出す に は 、GET( ゲ ッ ト ) 文 を 使い ます 。G 

K が. あの すず も 4 傘 ん な WNW あ か お まゆ ん 感じ が する ぐ で ル し ゃ 9 

そし て 書き 込み の と き に セク タタ 単位 ど で PUT し だ たよ うに 、 読 み 込む 

と きも セク タ 単 位 で GET す れ ば よい の で す 。 

書式 は 次 の と お り で す 。 GET 文 


GET 莉 1.S 


| し TK 


ファ イル 番号 





この 書式 の 意味 は 、 フ ァイル 番号 で 指定 され た ラン ダム ファ イル の ノバ ツ 
S セ クタ 目 の デ ー タ を 、 フ ァイル 番号 に 対応 する バッ ファ 上 に 読み 出 
す 。 ああ で 六 は 才 重 商 1 
も う 少 し 具体 的 に いい ます と 、 上 の 例 は 現在 OPEN し て いる 壮 1 
の ラン ダム ファ イル の 第 S セ クタ を 普 1 の バッ ジ ァ 上 に 取り 出す とい 
うさ 容 械 本 ます 。 
ファ イル 番号 は 1 と し て あり ます が 、 こ の 数 は 0 か ら 15 ま で の 数 を 
指定 で きま す 。 た だ し 、How many files (0 -15) ? で 入力 し た 数 
を 超え て は いけ ませ ん 。 


突然 CET 娘 の こと を 書き まし た ので 、 中 に は 、 何 も し な く て も す 
ぐ GET で きる の か 、 と 誤解 する 方 ちあ (る か も し れ ま せん の で 補足 し 
て お きま す が 、 デ ー タ を 読む と きも 青き 込み の & き し 同じ よう に 、 最 
初 に ファ イル を OPEN し て 次 に フィ ー ル ド を 設定 し て お か な く て は 
な り ま せん 。 

を そし て 、 こ の FIELD 廊 に よる フィ ー ル ド F の 定義 が な る れ て いる 
と 、 あ ああ セ クダ や を GET も し た よき に 、 朋 動向 は 、 を れ ぐ を れ 定 半 8 あ ゆか 
フィ ー ル ド 幅 もつ バッ ファ 上 の 変数 に 割り 当て られ る の で す 。 書 き 
込み の と き に は LSET ま だ は RSET を 使っ て モッ ト し な けれ ば な 
り ま せ ぜん で し た が 、 読 むと き に は 必要 な い の で す 。 


この よう に バッ ファ 上 に 取り 出る れ 、 バ パ バッファ 上 の 変数 に 割 り 当て 
られ た ラン ダム デー タ を 画面 に 表示 する に は 、 文 字 型 データ は その ま 
ま 使 えま す が 、 数 値 デ ー タ は 書き 込み の 際 に 文字 型 に 変換 きれ て いる 
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※VAL 関 数 も 数 値 変換 に わけ で すか ら 、 も う 一 度数 値 に 戻し て や ら な けれ ば な り ま せん 。 


開 和 WU ます の MK1I1$ な だ た も えば ぼ ば 、 衣 9 あ 、 B 2 $、 隊 ま ゆ と いう パッ クジ ァ 革 の 突 数 に 、 そ を 
ど で 文 字 列 に 変換 し て ある co 3 
も の は 必ず CVI、cvs れ ぞ れ 2 バ イト 、4 バ イト 、8 バ イト の 数 値 が 文字 型 と し て 代入 きる れ 


人 玉 
CVD を 用 いて 数 値 に 戻さ て いる と し ます と 、CVI、CVS、CVD を 用 いて 次 の よう に 数 値 
な けれ ば な り ま せん 


に 戻し て や ら な けれ ば な り ま せん 。 





X 々 = じ VI(B1$ ま ) 整数 値 に 変換 
Y 1! =CVS(B2$ ) ーーーー ジ ーー ユエ エーーー 単 模 度 天 衝 催 に 究 換 
/ 社 = じ VD( B3$ ま ) 加 
CVI (コン バー ト こう し て 数 値 型 に 変換 し て な きま す と 、BASTC モ ー ド で 使っ て 
者 ル ) いた の と 同じ 扱い が で きる の で す 。 
CVS (コン バー ト を し て 最後 に 、 フ ァイル を 使い 終っ た ら CLOSE で す 。 
シン グル ) 
CVD (コン バー ト Ma 
Wi 6 デー タ を 読む 過程 を 図 に する と 次 の よう に な り ま す 。 


GET 





を それ で は デー タ 読 み 出 し を 実行 する 前 に 、 そ の 手順 を 箇条 書き に し 
て 乏 理 し て きま も し いす 


⑳ ラン ダム ファ イル を 開く (OPEN する )。 

⑳ FIELD 文 で フィ ー ル ド を 定義 する 。 

⑥ GET 文 を 用 いて 1 セク タ (256 バ イト ) ず つ バ ッ フ ァ 上 に 取り 
すい 

⑳ 数 値 デ ー タ の 場合 に は CVI、CVS、CVD を 使っ て 文字 型 
を 数 値 型 に 変換 する 。 

ラン ダム ファ イル を 閉じ る (CLOSE) す る 。 


さあ 稚 備 完了 で す 。 先ほど 書き 込ん だ デー タ を 読み 出し て 画面 に 表 
清志 凶 ま 北 注 波 。 ' 
プログ ラム を 次 に 示し ます 。 行 番号 を 300 か ら と し て 、 デ ー タ 書き 込 
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み 部 分 の うし ろ に つけ 加え を ましょ う 。 


300 “" random data read 

310 OPEN "R” 。 手 1。"1:TESTDAT " 

320 FIELD 1.2 AS CD も ま 。20 AS NM も 。15 AS TEL ま 
3230 ド FU 1【=1 1 LUF【T) 

340 GEI[ 拉 1。1 


350 PRINT USING 「 料 料 提 村 "3CVI(CD ま も うぅ 
360 PRKINT NM も 

づ (U PRIME IE に 更 

380 NEXT 1 

う 320 CLOSE 音 1 

00 END 





330 行 の は 、 1 番 の ファ イル の 長き 、 つ まり 何 セ クタ 
使っ て いる か 、 その 値 が 与 を た を られ ます 。 を そし て 、 を の 値 の 示す 回 数 だ 
け 340 行 め GE 征 克 に よる 区 ディ スク 上 の デーmー タ が 2 の WW アザ 上 に 取り 
出さ れ ま す 。 こ れ を PR INT 丁 文 で 画面 に 表示 すれ ば よい わけ で す が 、 
CD $ だ け は 数 値 に 変換 し な けれ ば いけ ませ ん か ら 、350 行 で CV 1I を 
使っ て 変換 し て いま す 。 

これ を 実行 する と き は RUN コ マン ド で は な く 、 湊 の よう に し て 〈 
だ さい 。 RUN コ マン ド で す と 、 こ の ステ ー ト メン ト の 前 半 に 書き 込 
み 部 分 が あり ます か ら 、 そ ちら が 実行 きれ て し まい ます 。 


5UTU 300 


次 の よう な 画面 に な がり まし た か ?7 


1018 
ドク カ 7 1LIX 0I0I9EM0I0I6EH0I91616 
コシ の 9191816 
0 4 こり 1 こう 33933 
RA 2 の が 0 imirr2 25. 
メグ セキ SSUDUE つ DDJ 
NLD NO の 92iotoJamdlli Mii 


カイ ホ セイ リョ ウ 555-111-1111 
ョ シタ * サン コ 9 333-333-3333 
サト ウ イリ サイ の クア ニア アア ツア アン 
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l 朋 用 川 | 


ちや ん と 苗 まき 入 み がき て いた は よう で すね お 。 

し か し 、 コ ユー ド 番 号 の 並び が 少々 ふぞろい で すね 。 

350 行 で PRINT USING を 使っ て いま すか ら 桁 F ろ え は で き 
て いる の て すす 居 病 が デコ ポ ュ て ル す 。 て と 邊 を きい に 整 し ん ずる に は 、 
次 の 345 行 、346 行 を キー イン し 、350 行 を 少し 変更 すれ ば うま くい きま 
ず 。 や っ て 人 交 ま し ょ う 。 


数 値 を 文字 列 に 変換 


345 CD=CVI(CD ま ) : CO ま =MID ま (STR ま (CD ) , 2 ) 


346 CO ま $=RIGHT ま ("000"+CO ま 。4 ) 4 桁 の 文字 列 に する 
350 PRINT CO ま $" ": 





STR も (エス ・ テ ィ STR$ 関 数 は 数 値 を 文字 列 に 変換 し ます が 、 数 値 の 前 に か くさ れ 
ー・ ア ー ル ・ ド ル ) て いる 符号 も 含め て 変換 し ます の で 、 つ まり 1 番目 は プラ ス の 待 号 に 
な っ て いま すか ら 、 2 番目 以降 を 取り 出さ な けれ ば な り ま せん 。 を そし 
て これ に 3 桁 の 文字 列 「0 0 0」 を つなげ 、 右 側 か ら 4 桁 抜き 出せ ば 
4 桁 の 文字 列 と し て の コー ド が で き あ が る わけ で す 。 
実行 し て 確認 し て みて くだ きい 。 


ここ て 1 つ 実 験 を し ます 。330 行 を 次 の ょ うに 変え て 実行 し て みて < 
だ きい 。 


330 FOR =1 TO LOF(1)+1 





クー ブツ mm め 0 人 0A ド ウッ ゲル で じまい まし た だ た 。 

ます こも 尼 る 取 避 0 本 いで が まあ Myk 

これ は 340 行 て 「 フ ァイル の 最終 レコ ー ド を 超え て 読み 出 を うと し 
て いる 』 6 六 沿 味 の エ グー で すず 。 ファイ ル ね 扱う よう に な る ト ) 
の エラ ター は よ て 肌 全 うう エキ ラー て す 。 ひ て で は ファイ ル 長 上 OBE(1)G 英 
ラス 1 し て いる の で すか ら エ ラー の 原因 が わか り ま す が 、 こ こ が V と 
が Y も の いう だ た 美 数 だ と よ 、 じ し ぼ ば し 考え 込む こと E が よく て あり ます 。 
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4・ 己 メニ ュー プロ グラ ム と デー タダ 書 き 込 み 


この 節 で は 、 前 節 で 得 た 知識 を も うぅ 一度 確 認 す る 意味 で 、 簡 単 な 宛 
て 名 書き 印刷 も や っ て み ま す 。 
デー タダ タフ テイ ル に は 、 次 の 項目 を 保存 も て お きま す 。 








コー ド 番 号 
氏名 

郵便 番号 
住所 

番地 


あめ の ② め あら @ 


これ ら を 1 レコ ー ド と し て 1 セク タ 内 に 書き 込み ます (と 、 今 は 考 
えん て 下さ いん 少し ムダ が な が 使い 方 で す が 、 こ れ は 学習 の た めで すし 、 慣 
(も る だ め に は ある 程度 簡素 化し て な いた ほう が よい と 思う か ら で す 。 

多 て 名 印刷 の 方 法 は 、 宛 て 名 印刷 を し た い 人 の ユー ド を 光 々 と 入力 
し 、 エ ンド マー ク を 入れ る と 、 あ と は プリ ンタ が か っ て に 印刷 を し て 
だ れん る と UM に に まま 0 

コー ド 番 号 に は いろ いろ な つけ 方 が あり ます 。 下 2 桁 を 県 別に する 
と か 、 職 種 の 区 別に 第 何 桁 を 使う と か 、 ま た 使用 桁 数 も ケー ス に よっ 
(だ いぶ 達 ぶ 誰 て 7 て 《 る 上 思い ます 。 し か し この 本 で は 、 デー タ の 入 
出力 を どう 扱う か 、 と いう 点 に テー マ を し ぼっ て いま す の で ュー ド の 
つけ 方 に は と ら わ れず に 話 を 進め る こと に いた し ます 。 


メニ ュー ブログ ラム 
メニ ュー 画面 は 「MENU0 1」 を 少し 手直し し て 、 次 の ょ よう に し 
語 に 7 ら 。 
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メニ ュー ブロ グラ ム の リス ト を 次 に 示し ます 。 手直し し た 個所 に は 
ウメ ンド ト を 入れ 【 材 き し だ 。 


4 


フロ グラ ム 名 の 変更 








デー タ 入 力 部 分 の ブロ グラ ム 


ブロ グラ ム の 先頭 部 分 は 、 い つも の ょ うぅ に プア イル 名 、 作 成年 月 日 
変え ん た だ りす る 窟 0WM 起 か 





10 ′ file name = 一 > DMAIL1 
2d “ 4984.。 る 。20 

30 ” random data urite 

40 ′ save "DMAIL1* 

7 

100 MIDTH 40.20 : CONSOLE 0。.25,0。0 
110 CLEAR 5000 : DEFINT A ぬ ー- ア 

120 CLS 













炊 に デー タ 書 き 込み 用 の ラン ダム ファ イル を OPEN し な けれ ば な 
) ま せん が 、 各 項目 が 使用 する フィ ー ル ド を 次 の よう に 設定 する こ ょ 
還 し ま 演 0 


@ フ ィ ー ル ド の 割当 て 人 





ここ て 、 お や ッ と 気づい し た こと は あり ませ ん か ? 

ぐう て す 、141 ペ ー ジ の ファ イル に 書き 込む 項目 に は ユー ド も 入っ て 
いま し だ が 、 こ の 表 に は 見 当たり ませ ん ね 。 コ ユー ド は 書き 込 き な いで 
いい の で 』 和 きか この 理由 は すぐ で 説明 し ます 。 

と に か が 《 く フィール ド が 定義 で どき まし た か ら 、 ラ ンダ ム フ ァ イル を D 
"BN する 部 分 が は ーー ディッ ダ し て みき まし 9 、 
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open Tile 


OPEN "R” , 拉 1。 "13DMAILDAT" 
FIELD 1.20 AS NM ま , 6 AS PN$。 
3 っ AS AD も ,20 AS BA 











ラン ダム ファ イル に お ゆば は 、 イン デック ス と いう 考え 方 を よ ( 便 
山本 る スズ ズ いま す 。 技術 関係 の 本 に は 索引 が つい て いま すね 。 あ の 索引 と 同じ と 

えみ 下 AN だ お いま MRNA 本 MV まげ 。 

ある 専門 用 語 を 本 廊 中 か ら 探 を うと し て も 、 ペ ー ジ を めく っ た だ け 
で は な か な か 見 つけ る こと が で きま せん 。 と ころ が 索引 を 調べ れ ば 、 
を の 用 語 に ペー ジ 数 が 書い て あり ます か ら 、 す で に 探す こと が で きま 
ず 衝 。 ラ ンダ ガム み フ ァ イ 光 0 全う オン デック ス $ も 同じ と こと な の で す 。 
た よん え 洪 、 次 の 4 名 の まや タダ を や 1 人 人 を 1 ラー ド (1 人 や ク グ ) 、 と し 
て ラン ダム ファ ア イル いい 才 ああ 送 せ と し ます 。 






































この と き 、 ラ ンダ ム フ ァ イル の 考え 方 で は 、「 コ ユー ド 」「 氏 名 」「 郵 便 番 
号 」「 番 地 」j、 こ の 5 項目 を 1 モク タ 内 に すべ て 書き 込む の で は な く 、 コ 
ー ド だ け は シー ケン シャ ルフ ァイル に 書く こと に し て いる の で す 。 

を そう し ます 上 。 て と の ルキ ゲン シャ ルフ アデ アイル に 書き 込ま きれ な コー ド 
が 、 本 で いう 索引 の 役割 を する の で す 。 

な ぜ か と いい ます と 、 シ ー ケ ン シ ャ ルフ ァイル は 連続 的 に 前 の ほう 
か ら 順 厚 よ く (デー タク 40 つ あこ ま 入 て いま し た 。、 区 えて いま すか 

つま り 、 上 の 例 で いい ます と 、「0011」 は 1 番目 に 、「1122」 は 2 番目 
に 、 「3344」 は 3 番目 に 、「5566」 は 4 番目 に 書き 込ま れ ま す 。 と 同時 
に 、 そ の コード に 夫 亡 する 「 ト ク ガ ワリ 」 ト ヨ ト ミ オダ 」 アデ タチ 」 は 、 
ラン ダム ファ イル の 第 1 セク タ 、 第 2 モク タ 、 第 3 セクタ 、 此 4 セク 
タ に 書き 込ま れ ま す 。 と いう こと は 、 キ ー ボ ー ド か ら コ ユー ド を 入力 し 
だ た とき 、 そ の コー ド が シー ケン シャ ルフ ァイル の XX 番目 に あっ た と し 
ます と 、 ラ ンダ ム フ ァ イル の X セ クタ 目 を CET すれ ば 、 希 望 す る 人 
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の デー タ が 得 ら れる わけ で す 。 
この こと を 図解 し た の が 次 の 図 で す 


た と えば コー ド 番 号 3344 の 人 の 


第 1 番目 デー タ が ほし けれ ば 、 ラ ンダ ム 
ファ イル の 第 3 セク タ を GET 
2 
香る 生 須 すれ ば デー タ が 得 ら れる 
第 3 番目 
第 4 番目 GET 





シャ ルフ ァイル 


第 1 セク タ 


第 2 セク タ 


第 3 セク タ 


第 4 セクタ 





ご 理解 いた だ けた で し ょ うか ? 
時 まあ を に 。、 デー を ララ シダ ム デ アテ ァイル に も ー プ する よき に イシ デ 
ックス 用 の シー ケン シャ ルフ ァイル も 一 緒 に 作っ て お く の で す 。 


る さて 、 メ ニュ ーブログ ラム で 1 番 の 「 デ ー タ の 入力 」 を 選択 する と 
この 「DMAIL1」 が 実行 きれ る わけ で すか ら 、 初 回 の 書き 込み も 
複数 回 目 の 書 き 込 みち も る 、 い ずれ も 考 應 し て コー ディ ング し な けれ ば な 
り ま 笠 許 。 

禄 問答 し だ 6。 オン デ ッ ク 表 用 の シー タル スヤ ャ ルフ ァイル は 0UT OUTPU 下 志 ー ド 
PU モード で よい で す が 、 2 回 目 、 3 回 目 に OUTPUT モ ー ド で " 
オー プン する と 「PFile Already Exists」 の エラ ー に な っ て し まい ま 
す ぁ 

それ で は 常に APPEND モ ー ド で OPEBN す れ ば よい の で し ょ う 
か が 。* 組 馬 し い 届 の 昼 尋 ん 0000。 を う て は な い の で 宮 

だ と えば 、 初 回 の 入力 時 に APPEND モ ー ド で OPEN する と 、 


File Not Found 


と いう エラ ー メ ッ セ ー ジ が 返っ て きま す 。 
を そこ で 、 初 回 で も 複数 回 目 で も 入力 可能 な よう に する に は 、 ち ょ っ 
と し た 細工 が 必要 で す 。 次 の ステ ー ト メン ト を 入れ て お きま す 。 
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4ZO 1F LOF(1) く 20 THEN DBOSUB 10MU、 ,: GO0TU 200 


4 ーー ニュ ニー ニニ ーー ニー ニーi 主 ルド 2 が 生え た ら 杭 る 





LOF 関 数 この LOF 関 数 は 、 ラ ンダ ム フ ァ イル を OPEN し た と き に 、 最大 
の レ ュ コード 番号 (あるいは その ファ イル が 使用 し て いる セク タ 数 ) を 
返し て くる も の で す 。 そ もし 証 、 こ れ は 、 ラ ンダ ム フ ァ イル を 初め て オオ 

| ー プ ン し た と き に は 0 を 与え ます 。 

| で すか ら 、LOF の 値 が 0 で な けれ ば すでに ラン ダム ファ イル の 書 

き 込 み は 行わ れ て いる と いう こと で すし 、 と 同時 に 、 を れ は イン デック 

| ス 用 の シー ケン シャ ルフ ァイル も すでに ディ スク の 中 に 存在 する こと 

め 薄 味 し ます 。、 と いう は 、 こ の 場合 に は APPEND モ ー ド で て オ 

ー グ ン す れ ば よい わけ で すね 。 

を し て 、 ラ ンダ ム フ ァ イル の 書き 込み は 何 セ クタ 目 か ら す れ ば よい 
か を 決め る た め 、1000 行 か ら の サブ ルー チン ヘイ ン デ ックス ファ イル 
を 読み に いき ます 。 

LO 世 が 0 な ら U、 寿夫 LOUTEUT 人 光一 ドド で イン デック クス ファ 
オル や を OP 紀 N す る こさ に な り ま す 。 

1000 行 か ら の サブルーチン は 次 の よう に な り ま す 。 

















"data coun セ も sub 

| DPEN 1) 。 持 2。"1: INDX1DAT“" 

| MHILE NOUT EOUF(2) 

INPUT #2,DUMMY デー タ の カラ 読み 


REC=REC じ + 1 デー タ 数 を カウ ント する 
MEND 
| SEC じ =REC+ 1 <ーーーーーーーーーーーー 一 一 総 デ ー タ 数 に プラ ス | し た 値 が 入力 デー タ を 
| CLOSE 昔 2 
| RE TURN 


上 に な 次 








書き 込む ラン ダム ファ イル 上 の レコ ー ド 位置 





WHILE-WEND この サブ ルー チン で は WHILECーWEND 文 を 使っ て いま す 。 こ 
れ は 、WH I LE 以降 の 条件 が 満た され て いる うち は 、WHTILE ヒ と 
WEND の 間 を ルー プ し ます 。 こ の 場合 「2 番 の ファ イル が 終り で な 
けれ ば ルー プ す る 」 と いう こと に な り ま す 。1040 行 で デー タ の 読み 飛 
ば し を し て 1050 行 で デー タ 数 を 数 を て いま す 。 
1070 行 の SEC=REC 十 1 は 、 前 ペー ジ の 図 を 見 て いた だ け ば わ 
か る と 思い ます が 、 ラ ンダ ム フ ァ イル へ の 書き 込み 位置 (PUT す る 
倍 軒 ) ほ 、 シー ケン シ ゃ ルフ プア ァイル の デー タダ 数 プラ ス 1 に な り ま す 。 
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RETURN 文 に より サブ ルー チン か ら 帰 っ た 場合 は 、200 行 か ら の 
APPEND モ ー ド へ 、 そ う で な い 場 合 は 、 初 回 の デー タ 入 力 と いう 
こと に な り ま すか ら 、OUTPUT モ ー ド で イン デック ス フ ァ イル を 
OF 世 INIUU ます 、 


180 OPEN 0" 2。" 1: INDX1DAT " 
120. SE し =1 : 


5UTU 220 
200 OPEN 「A 。 拉 2。" 1:TINDX1DAT " 





190 行 で ラン ダム ファ イル へ の 書き 込み 位置 を 示す 変数 SEC は 1 
と な っ て いま す が 、 こ の 場合 、 初 回 の 書き 込み で すか ら 、 フ ァイル の 
第 1 セク グ クタ か ら PU 馬 し で きま すず すず 。 


次 は デー タ 入 力 と 書き 込み 部 分 で す 。 


"data inpu セ 

LOCATE 10 り 5 !) PRINT "データ / こ ュ 9 リョク ラ も 75 
FUR エ =1 TO 3000 : NEXT 1 
じ し LS 

PRINT "コート" No。 ラ ト "9 ゾ * 
INPUT ーー> "3CD 

IF CD=9999 THEN GOTO 490 


(END=9②999 ) ” 








PRKINT 
INPUT 
PRKINT 
INPUT 
PRKINT 
INPUT 
PRINT 
INPUT 
PRKINT 
INPUT 


IF Y 中 = 


7 RW 

K ーー 

20 】 Se 0 Mg MC ブ トド ' WT 
4 ーーー ト 清和 ま セッ ジュ 
あー ポト ひ り MY “ 

ーーー / 罰 ず ・6C1 


ルウ まり MV 7 
! ーー ッ > | 84 


ON ん (アメ /n 7 4V ま 
"N” OR Y ま ="n" THEN GOTO 250 


"data いい Fi も e 


PRINT #2。CD 
LSET NNM ま =A1 ま 
LSET AD も =A3 和 も 
PUUT (生ま も し 
SE じ =SEC+ 1 


イン デック ス フ ァ イル に コー ド を 書き 込む 


。 LSET IN 王族 2 束 」 バ ッ フ ァ 上 に デー タ を セッ ト 
: LSE T BA も =A4$ 

ラン ダム ファ イル に デー タ を 書き 込む 

次 の 書き 込み の た め に セク タ 数 を ふやす 


5UTU . 250 
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デー タ 入 力 を 終り た いと き は 270 行 で 9999 を 入力 する よう に し て い 
まる 

420 行 、450 行 で も わか る よう に 、 シ ー ケ ン シ ャ ルフ ァイル は # 2 の 
パッ ファ 、 ラ シン ダム ファ イル は 首 1 の バッ ツァ ア を 使っ て いま きす? 10 
の バッ ファ を 2 つ 以 上 の ファ イル で 共用 する こと は で きま せん か ら 注 
催し て 《 だ 宮 M6S 

この 段階 で ぜ で は 、 フ ァイル が 2 つ 同 時 に OPEN し て いま すね 。 

あな た は 、 デ ィ ス ク 起 動 時 の 


Hou many disk 和 files(0-15)? 護 


と ょ いう メッ セー ジ に 対し 、 ど ん な 数 を キー イン し まし だ が 7? で の 
数 を 超え ん だ バッ ファ テ を 同時 に 使う こと は で きま せん 。 つ まり 、 オ ー プ 
ニン グ 時 に 入力 し た 数 党 は 、 バ パッ ファ 数 上 考 ん る こと も で きる の で て です 


光 層 。、 ウ ァ 沙 勿 閉じ エン デオ ルッ メグ 、 そ を し て 暫 り 入 下 で 所 』 


480 

490 “file close 

500 CLOSE 昔 1 。 拉 2 

ch 較 

っ 20 CLS 

530 LOCATE 10。4 : PRINT "ホカ ノ ラコ "トラ シマ スカ ” 
540 LOCATE 10。5 : INPUT "  ( y ノ n ) "1?Y ま * 
550 IF Y$="Y' OR Y ま も =" ァ " THEN RUN "MENUO3 
っ 560 END 


10 file name = 一 > DMAIL1 
4 1984 6 。2Z0 


40 
p] 
100 MIDTH 40。20 』 CONSULE 0,.25,0,0 
110 CLEAR 5000 : DEFINT A-〆Z 
BZ ES 
US 
140 ′ open file 
150 OPEN 'R'",#1。"1:DMAILDAT 
160 FIELD #1。20 AS NM$ も 。 6 AS PN$*。 
35 AS AD も ,20 AS BA まま 
170 IF LOF(1) く >0 THEN GO0SUB 1000 』: GO0TU 200 


'30 | random data urite 


save  DMAIL1 
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1030 MHILE NOT EOUF(2) 
1040 INPUT #2.DUNMMY 
102U KRKE し =KRE 上 C+1 

1060 MEND 


1070 SEC=REC+1 
1080 CLOSE #2 
1090 RETURN 





プロ グラ ム を セー ブ し た ら 、 下 に 示す デー タ を 入れ て 、 動 作 テ スト 
が 0 は 電 2 和 屋 章 の 。 

まだ 、 途 申 で キラ ー が MC スト ッ グ し だ が 師 い レク み ト で こっ 席 C 
0SEW が らら ナチ ナ ュ ウツ も て 《( だ さら パグ (2 ロク ラム の 開館 いう 
を と っ て か が ら 再 度 RUN す ずる 前 に 、 ず で に デー タフ ァイル が ディ スク 
に 作ら れ て いた だ た ら 、 そ れ を KILL し コマ ンド で 削除 し て か ら 始 め ま し 
ょ う 。 正 常に 動く ま て は 、 ゆ ん ど 2 て も 6、 こ うい っ だ 《〈 り かえ し が 必要 で す 。 


1: INDX1DAT “ 
"1 sDMAILDAT “ 





0011 トク カ が" り イエ ヤス 101 aaaaaaaaaa トー コジ 
1122 トヨ トミ ヒ テ “ヨシ 030 bbbbbbbbbb 456-/8 
3344 オタ" ノブ "ナカ" 。 231 cccccccccc 1984 ハ "ンチ 
OO アリ チ そり セテ ^ 680 dddddddddd ワー8ー/ ら 6 


BINS IIoAPA IM や AN SINIBE ジ だ ん ルルル) 
ニー タラ 8616 

カ YH020 トド リノ 
ニーノ (ドク カ 7 (TX 

UM 2 0 2 NN 7 り / 
ーー 


ジ ツジ コリ ショ ヨリ リブ ワ 0 NM ウ 0 

ーー〉 /Z aaaaaa88888 
2 ウリ 0 20 りり 

ビー 2 EZ4G1 
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4・3d デー タ の 修正 





住所 の 変更 か 、 入 力 ミ ス に あと で 気づい だ と か し だ 場合 、 ブ ログ 
ラム きえ し っ か り 作 っ て お け ば 、 デ ー タ の 修正 は 簡単 で す 。 

シー ケン シャル ファ テイ オル の と き は 、 氏名 の 一 深 を 入力 し て 、 で 移 8 
同じ 文字 列 を ファ イル の 中 か ら 探 し て 修正 を 加え を て いま し だ た 。 カ タカ 
ナ で の 以 用 は Mo た ゆん りう て すし 、 び で に 娠 きみ みず タク の ナー クタ 
を すべ で て 配列 の 中 に と り 込 ん で ぢ か な けれ ば いけ ませ ん で し た 。 

と ころ が ラン ダム ファ イル と な る と 、 キ 記入 才 は きわ め て 和 単 。 数 
字 列 の コー ド を テン キー で 入力 すれ ば よい の で すし 、 コ ー ド は 氏名 と 
1 対 1 の 対応 を な し て いま すか ら 、 同 姓 の 人 を 考慮 する 必要 が あり ま 
せん 。 た だ だ 、 ユ ー ド 体系 を 完成 きせ る まで は 少々 大 変 ど と 思い ます が 、 
あと で 楽 を する だ た だめ に は 、 和 初め に 苦労 は つき も の で すね 。 

を 節 、 タダ ィ イス タダ に 保全 で きる デー タ 量 も 《 シー ケン ジャ ルフ ブフ ア 4 ル 
と 比べ て 格段 の 差 が で て きま す 。 シ シーケンシャル ファ イル で は すべ て 
の デー タ を 配列 に 読み 込ま なけ れ ば な ら な い の で 、 本 体 の メモ リ を 考 
記 す れ ば 、 そ こ に お の ず と 制限 が で て きま す 。 

し が し 、 ラ ンダ ム フ ア ァイル に な り ま す と 、 シ ー ケ ン シ ャ ル に 書き 込 
まれ て いる イン デック ス は 配列 に と り 込 む 必 要 が あり ます が 、 を その他 
の デー タ の 入出 力 は 、 す べ て 256 バ イト の バッ ファ だ け で 事 が すん で し 
まい ま j だ 大 圧 間 て ま 航 

ちな み に 、 両 面 倍 密度 ディ スク の 場合 、 両 サイ ド と も ( 表 、 裏 面 ) 
トラ タグ の 9、 下 ラッ ウッ ク 1 RT PU ガイ スグ クキ ー ド な し で 使用 あれ は 
す が 、 そ を その ほか は すべ で て ユー ザー が 使え ます の で 、38x 2X2 ニ = テ 152 
クラ スタ が プリ ー ほ いう さと だ な だり まず す 。 (1 トラック ニー2 タ ラス タ 
で ある つら も を 民有 抽 し て くだ きい 

これ を セク タ 数 に 換算 する と 、1 ク ラス ター ニー8 セ クタ で すか ら 、152 
を 8 倍 し で 1216 セ クタ と な り . ま す 。 

この 者 で は 1 セク 婦 に 1 名 の ポータ し か 書き 込ん で um まま 生 ん 潜 。 も 
し 3 名 分 書き 送 せ と す 杭 は 、 

1216( セ クタ ) X 3 (名 ) =3648( 名 ) 
の 資料 を スト ッ ク で きる の で す 。 

こ 起 ほ だ の デー タタ 量 に な り ま す と 、 ジ シーケンシャル 的 ね 考え 方 て は 

と て も 手 に お えま せん 。 


実用 面 で デー タ を 管理 する に は 、 や は り ラ ンダ ム 的 な 思考 法 が 要求 
され る の 79 陸 。 
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プロ グラ ム の 作成 


この 部 分 は も う 、 例 に よっ て 例 の ご と く と いっ た 感じ で すね 。 


file name = 王 > DMAIL2 
1984。6。20 4 ei を 
andom da モ 8a CoOFCec セ 
=ave "UDMAIL2" 


。 


MIUDTH 40,20 : CONSOLE 0,.25,0, 
CLEAR S000 : DEFINT A-Z 
じ LS 


DPEN "R"。 拉 1。"1DMAILDAT" ーー ラン ダム ファ イル OPEN 
FIELD 拉 1.20 AS NM も 。 6 AS PN ま も 。 
3 っ AS AD も 。20 AS BA も 


フィ ー ル ド の 設定 


デー タ を 修正 する 場合 に は 、 目 的 の デー タ を 探し 出 き な けれ ば な り 


ませ ん か ら 、 イ ン デ ックス 用 の 配列 を 作っ て 読み 込む 必要 が あり ます 。 計 


を 穫 が 次 り ス テー トドメ ジ メ 理 首 す 。 


160 
170 GOUSUB 1000 : FLAG=1 
180 DIM A(DM) : DM=0 : GOSUB 1000 : INDEX=DM 


前 箇 和 0 

1010 “" index read 

1020 “ 

1030 OPEN "1 。##2。"1: INDX1DAT “ 
1040 MHILE NOT EOF(2) 

1050 DM=DM+ 1 

1060 IF FLAG=1 THEN GOTO 1080 
1070 INPUT #2。DUMMY : GOTO 1090 
1080 INPUT #2。A(DM ) 

1020 MEND 

1100 CLOSE #2 





170 行 の CO SUB 文 で 1000 行 か ら の サブ ルー チン へ 飛び 、 イ ン デ 
ックス ファ イル に 書き 込ま れ て いる イン デック ス ( コ ユー ド 番 号 ) の 数 を 
読み ます 。 こ れ は 、 イ ン デ ックス 用 の 配列 の 大 きき る を 決 め ゆる た めで す 。 

配列 は あら か じ め プ ログ ラム の 先頭 部 分 で 、A (100)、A (500) の よさ 





う 人 芝 言 し や 覆 いで も よい の で て すず が 、 メ モリ 効率 が らい て E、170 行 、 
1804T で の やり 珍 の ほう が よい で し ょ は う 。 

170 行 の COSUB 文 に より 1000 行 か ら の サブ ルー チン へ 飛ん だ 段 
階 で 想 、 ま だ FLAG デ 0 て プラ グ は 立っ て いま せん か ら 、1070 行 の 人 重 プ ログ ラミ ング で ほぼ アラ 
1 li グ と いう 考え 方 を よく 使い 
{NN 且 人 T 全文 を 実行 し 、 が タ 数 を 読み ます 。 AE LE ます ある 条件 を 満た し た 
N 文 で 帰っ た と き に フラ グ を 立て (FLAG= テ 1)、 配 列 を 宣言 し 、 理 と き と か 、 ぁ る 動作 を 行っ 
度 同 じ サ ブ プルー チン へ 飛び 、 今 度 は 、 い ま 宣 言 し た 配列 の 中 に イン デ 本 本 重い 
トド は (| に する )、 プ ログ ラム 
ックス を 読み 込み ます 。 の 中 で の 条件 判断 が 大 変 楽 
2 度目 に サブ プル ー チ ン へ ジャ ング する 前 に 、DM ミ 0 に クリ ア し て で す 。 た と えば 、 あ る 家 を 
し 8 し も:。 。。 呈 ま 本 馬 の 柄 上 自 じ 天 し で 2 

お く の を 部 な いで 《 だ さい 。 こさ うし て ね きま ぜん ルル 、1050 行 て きら 6 


ラグ ( 旗 ) を 立て て お け ば 探 
に 加算 が 行わ れ ま すか ら 、1080 行 の INPUT 早 文 で 、 し や すい の と 同じ で す 


Sub=cF1ip も Uu も Uf Range 


の 志 妥 履か りき すず JO ま の 、 症 和 旭 が た 大 人 る や で し まっ うた な,- ど ゅ 
う 示 侵 害 ず 2 

これ で 下 準 備 が で きま し た か ら 、 次 は 修正 し た い デ ー タ の 入力 部 分 
に が 炎 き す 。 


グ 


LUCATE 5,5 : FLAG=0O 
PRINT “トト” ナタ / ノ シュ 9 セイ テ " ス カ (END=9999 )?" 
上 還 4O1CTNPMW TRNAP53P95』CH 


IF CD=2299 THEN GOTO 300 
し M し AE 008.!) 3NPMT (OK 2 が ( y/n })「 4 人 


IF Y ま ="N" OR Y ま ="n" THEN CLS : GOTO 200 
5USUB 2000 


じ LS : GOTO 200 





ュー ド が 入力 され る と 、240 行 で 確認 を うな が し 、 間 違い な けれ ば 260 
行 で 、2000 行 か ら の 修正 サブ ルー チン へ 飛び ます 。 

修正 作業 を 終り た いと き は 、「9999」 を 入力 する よう に し ます 。 

サブ ルー チン の ブロ グラ ム は 次 の と お り で す 。 


da 七 8 COFFPec セ も sub ん あれ が ロー PE 生 2 計時 


中 か ら 検索 する 
じ LS 


FOUR =1 TU INDEX 


IF AA(1)=CD THEN FLAG=1 : SEC=1 iT=INDEX 
NEXT 1 


IF FLAG=0 THEN GOTU 2250ーーー コ ー ド が 見 つか ら な いと き の 処 理 





第 4 曹 ラン ダム ファ イル (I) 153 
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DE 1 導 3 
LUCATE 
LUCATE 
PRINT 
PRKINT 
IF A1 も 
PRKINT 
IF 2 中 
PRINT 
IF A3 ま ま 
PRKINT 
IF A4 ま 


LSET NM 呈 =A1 中 : LSET PN ま =A2$ 


LSET ぬ 
PUT #1 
RE TUKRN 


BEEF 
LUCATE 


FUR = 


RETURN 


。 ご ヒ し ーーーーーーーーーーーーーーーーーーーーーー 一 一 - 該当 セク タ を GET す る 
ブ ズム コリ 4 PRENT ダウ yy Je 3 002 ッ し 0 
4。4 : PRINT “シュ ウ セ イ ナ ケ ル ハ " RET キー" 


NM も : INPUT ” = 一 > 3A1 ま 
= THEN A1=NN$ 
PN も : INPUT ” = 一 > " :A2 ま 
=" THEN A2 ま =PN$ 
AD も : INPUT | = 一 > "3A3 ま ま 
= THEN A3 ま =AD*$ 
BA まま : [INPUT | = 一 > "544 まま 
= ” THEN A4 ま =BA$ 


正しい デー タ 入 力 


/W メ バブ プア EE に 補 人 ト 


D ま =A3 ま : LSET BA$=A4$| ・ 


。 っ ご ヒ し ーーーーーーーーーーーーーー ラ ンダ ム フ ァ イル に 書き 込む 


EEFP 】 BEEP プ ブザー 音 
9 # PRKINI ツジ / カ クリ) トウ ロク ラチ ア UYEk ウ " 
けり S000 1? N 志 4「 1 


B 
8 
1 吉 。 





2040 行 と 2060 行 の FOR-NEX 丁 文 で 、 入 力 き され だ ユー ド CD と 
同じ も の が ある か どう か イン デック ス を 検索 し ます 。 も し 見 つか れ ば 、 
フラ グ (FLAG) を 立て て お き 、 そ の 見 つか っ た と き の | の 値 が 、 修 
正す べき レコ ー ド が 書き 込ま れ て いる セク タ 数 に な る わけ で すか ら 、 
変数 SEC に 代入 し て お きま す 。 ユ ー ド と デー タ は 1 対 1 対応 で すか 
ら 、 1 つ 見 つか れ ば それ 以上 の 検索 は 不要 と な り 、 ル ー プ 変数 I の 値 
に 最終 値 INDEX を 代入 し 、FEOR-ーNEXT エ ルー プ ' か ら 抜 け 出 し 
を ルル 洋 い ます 。 

2070 行 で フラ グ (FLAG) が 立っ て いな けれ ば 、 該 当 デ ダー タ が な か 
っ だ わけ で すか ら 、2250 行 で プ ザ ー 音 を 鳴ら し 、 画 面 に メッ セー ジ を 
表示 し ます 。 

2080 行 で は 、 該 当 モ スタ を GETT し 、 修 正 の 準備 を し ます 。 

デー タ の 修正 方 法 は 、 現 在 書き 込ま れ て いる デー タ を 画面 に 表示 し 、 
その まま て よけれ ば リタ ー ン キー を 押し 、 直 し た けれ ば キー 入力 する 
江 直し まま 選 。 

2200 行 以降 で 、 正 し じい デ ー タ を バッ ファ 上 に セッ ト し 、 ラ ンダ ム デ 
ー ズ ジア イル に 書き 込み えす 。 








最後 は 、 使 用 ファ イル の CLOSE で す 。 


プ 


CLOSE 昔 1 


お 

LOCATE 10。4 : PRINT "ね お カ / ノ ラコ " ト 0 
OONIE 4 圧 3 0 INEUT ( y/n 7 0 

IF Y ま ="Y" OR Y ま =" ッ " THEN RUN "MENU03 
END 


こ 滞 で ちよ っ も 杜 首 に る を 覆 害 語 導 の 。 

これ まで 、 画 面 に 表示 る れ だ メッ セー ジ に 対し て の 答え は 、 は ほとん 
どの 場合 、840 行 ひよ うに 「yju 表 だ た は 「WI で 壮 マ 入 方 きせ で いま ル 
だ 。 そ し て キー 入力 後 リ ター ン キ ー を 押 き な けれ ば いけ ませ ん で し た ね 。 
次 の 2 つの プロ グチ ん 多 放 べ で (て だ さい 





INPUT "本 カ / シコ " ト ヲ ラ ラマ スカ (y ノ /n) "1Y ま 
IF Y$="Y' OR Y$=" ッ ” THEN RUN “MENU" 
PRINT " コ " ク ロウ サマ テ " シ タ “ 

END 















PRIINE お ガ / 9 コト リラ 57220 (y/n) 
510 Y$=INKEY も : IF Y* も も =" THEN GOTO 510 
520 IF Y ま ="Y' OR Y$=" ッ ” THEN RUN “MENU" 
530 IF Y ま ="N' OR Y ま =n THEN GO0TO SS0 
34 BEEFP 3. BEEFI 3 MEM 310 

S50 PRUNT コク OS ドッ タダ 

END 


で 閣 員 の プロ グラ ム は 、y を 和信 力 し よ メ イー ジ ツジ キ つ を 埋 し た と まき に め 
み 「MENU」 が 実行 され ます 。 2 番目 は リタ ー ン キー を 押す 必要 も 
な いう え 、 無 関係 の キー 入力 が あっ た ほぼ き は ブザー 音 を 出し て 、 も う 
な 腰 下 は 大 用 か が し ます 。 お 好き が (うま りく 《。 


プロ グラ ム の 実行 と リス ト 





生 4 導 ラン ジン ダ ペ フフ ア イオ /)  5 





1960%ー ジ の で 和信 月 し わか 「 ボ ダグ ノダ が か が 」 や 修 下 し て るみ ま し 1) う 。 


ナナ さ 
3344 と いう コー ド 入 力 後 の 修正 画面 で す 。 


氏名 は 修正 し な が な い の で リタ ー ン キー を 押す 


新しい 郵便 番号 


BRNRSNRNOHTRISUH20 


失 000ORRRORBIRRREHB2SR5SIHACSRED2MOON2 
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4・4 宛 て 名 の 印刷 


きる て 、 い よい よ 最 後 の 印 刷 プ ログ ラム で す 。 

ここ で て 扱う プロ グラ ム は 。 デイスク だ 彰 銭 し て ある デー タ す べ て 古 
宛て 名 を 印刷 する の で は な く 《、DM な どの 発送 の 必要 の ある 人 だ け を 
が リツ に 出す る し 0 まず 1 

考 ぇ 方 は 、 対 象 と な る 人 の コー ド 番 号 を キー ボー ド か ら 入 力 し 、 を 
れ を 一 時 、 配 列 に 退避 ふせ て お いて 、 す べ て の キー 入力 が すん だ ら 6、 
… 捕 じ の 6L 央 の る 必 生 まあ に し ます 。 

まま 件 和久 しほ 即 届 の 人 相 と いう よさ う に も て も か まわ な い の で すす が 
大 変 時 間 の 浪費 に な り ま す 。 キー 入力 は 人 間 が や ら な けれ ば な り ま せ 
ん ルカ 、、 を 香る ん すま 地 志 貞 Mn の あ と 令 芝 リンダ が に あか せま も も りう 。 

と は いっ て も 、 こ れ は 発送 数 が 相当 多数 に わた る 場合 で 、 本 節 で は 
2、 3 の デー タカ を グリ ジン G 和 ち 出 し や みる だ が だけ で すか ら 、 ガ リサ ント 
時 間 も つ か の 間 で す が 、 一 応 発送 数 が ふえ る こと を 想定 し て 考え ます 。 

し か し 、 デ ー タ が 多い か 少な いか の 相 異 だ け で 、 基 本 的 な 考え 方 は 
まう の だ で 同じ で 6 





プロ グラ ムペ ヘッ ド は ファ イル 名 を 変え る だ け で 、 前 節 の それ と 変わ 
初期 設定 り ま せん 。 


Tile name = 王 > DMAIL3 
1984 。6,20 

8addCPe=8 PF1n 七 Ou セ 
=ave "UDMAIL3" 


ファ イル 名 
MIHUIFH 40.20 ) CONSOLE 0,25.0.0 
CLEAR S000 : DEFINT A-Z 
し に しら 


DPEN 「R”, 拉 1。"1:DMATLDAT 
FIELDU 拉 1.20 AS NM ま 。 6 AS PN$ も , 
うつ AS AD まま,20 AS BA まま 


次 に 配列 宣言 と デー タ 読 み 込 み で す 。 





プ 


5USUB 1000 : FLAG=1 
DIM ADM),B(DM ) iDM=0 : GOSUB 1000:TNDEX=DM 
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この 部 分 の ステ ー ト メン ト は 、 を その 持つ 意味 は 前 節 と 同じ で す が 、 
だ 、 配列 情 新しく 癌 え て いま ず 。 

本 AI は ジー ケン シャ ル グ ア ァイル 4 ルツ が ックス あ だ た く わん し 引く 
も 5 の で し た が 、 配 列 B は 印刷 する 必要 の ある デー タ の イン デック ス を 
し まっ て 【 再 きま す 。 発 ほ ど 、 ま と めで て 聞 央 する と いい まし だ が 、 つき 
り 、 あ と て 配列 B に し まわ れ て いる コー ド 番 号 を 1 つ 1 つ 取り 出し 、 
それ に 対応 する ラン ダム ファ イル の セク タ を GE 本 し 、 プ リン タ に 出 
し まお 


次 は コー ド の 入力 部 分 で す 。 コー ド の 入力 


と 


LUCATE 10,4 P 司 際 村 アテナ / イッ サ り み 90 
LUCATE 10,5 P 展 NT コート" "ンコ" り ラ ト 0 
LUCATE 10,6 P 評 MT く END=9999 >" 
LEAIHE' 10 98 ) INNOMI > 「jCD 


IF CD=2229 THEN GOTO 300 


に MDANIE 10.8 。 FRINU ーー 敵 還 
N=N+ 1 也 すぐ 前 に 入力 し た コー ド を 消 基 


B(N)=CD CA ) 
5UTOU 230 配列 に コー ド を し まう 


230 行 で コー ド を 入力 する た びに 、260 行 で 配列 B の 添字 に 使う 変数 
N を 1 ずつ ふやし 、270 行 で コー ド を を その 配列 に 登録 し て いま す 。 
240 行 で エン ド マ ー ク を 判断 する と 、 印 刷 の 処理 へ 移り ます 。 


SUSUB 2000 イン デック ス 検 索 サ ブル ー チ ン ペ 
5USUB 3000U 印刷 サブ ルー チン へ 


し し S 
LOCATE 10,4 1 PRINT "本 ホカ / ラコ " ト 


LUCATE 10,5 INPUT 『 ( y/n ) ji 計 
IF Y も ="Y' OR Y ま =" ッ ” THEN RUN “MENU03 
END 


300 行 で 2000 行 か ら の イン デック ス 検 索 サ ブルー チン へ 飛び 、 帰 っ て 
き て 氏 吊 サブ プル ー チ ン へ 飛び ます 。 印刷 が 終わ る と 、 い つ 6 の 6 86 
ほか の 作業 も する か どう か の メッ セー ジ 表 示 と な り ま す 。 

次 は サブルーチン を 作り ます が 、 イ ン デ ックス を 読み 込む 1000 か ら 
1100 行 の サブ ルー チン は 156 ペー ジ と まっ た くく 同じ で す の で 、 を ちら 
を 見 な が ら 入 力 し で だ きい 。 
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イン デック ス の 検索 2000 行 か ら の サブ ルー チン を 見 て み ま し ょ う 。 




















2000 “ 

2010 "find index sub 

2020 ^ 

2030 FOR 1=1 TO N 

2040 FOR J=1 TO INDEX 
上 2050 IF B(1)=A(J) THEN B(T)=J : J=INDEX 
2060 NEXT J 
| 2070 NEXT 1 











開 2080 KRETURN 








ルー ジ 変 数 I の 最大 値 N は 、 登 録 し た デー タ の 個数 で し た ね 。260 行 
で 計算 き し て 【 い 迷 学 。 

2040 行 か ら 62060 行 へ か け て の ルー プ ' は 、 先 ほど 入力 し た コー ド と . 
< 注 > プ リン タ を お 持ち で な イン デック ス フ ァ イル に 登録 る きれ て いる コー ド と を 比較 し 、 同 に じ も の 
っ クロ が つり 3 生ま が 見 つか れ ば 、 そ の と き の 」 の 値 を 配列 B に し まう わけ で す 。 つ まり 
MM で の LPRINT 文 の 「L」 上 
開 を 削除 し 、 3155 行 と し て 時 この 時 点 で 、 配 列 B か ら を それ まで に 入っ て い だ コ ー ド 番号 が 追い 出 き 
間 間 つ ぶし の ステ ー ト メン ト ね 、 新 し い ぃ 数値 (これ が 追い 出さ れ た コー ド 番 号 に 対応 す る デー タ の 
示 馬 埋 09 だ さい 。 ま た 、 CO 3 
3040、 3050 行 の メ ッ セ ー ジ セク タ 番 号 を 示す ) が 人 入る て 装 。 
は 変え が けれ ば な り ま せん 該当 する コー ド が 見 つか れ ば 、 ル ー ク "変数 の 値 を 最大 値 に し て 、 
ッ ン 2 と sa この ルー プ か ら 抜 け 出し ます 。 余 計 な 仕事 は や ゆめ よう と いう ゎ け で す 識 

この 操作 を N 個 の ユー ド に つい て 行え ば GET する セク タ が を それ 
印刷 の サフ ルー チン おれ わか っ た こと に な り ま すか ら 、 あ と の 印刷 は 簡単 で す 。 


























~ PPin 七 ou sub 





に し ら 
LOCATE 10,5 PRINT “インサツ シミ マス" 
LOCATE 10。6 PRTINT “フリ ンタ ヲ も 9 トシ テク タ " サイ“ 
LUCATE 10,.8 PRINT "Hit any key if OK" 
Y ま =INKEY$ も : IF Y ま =” "| THEN GOTO 3070 
FOUR TI=1 TO N 
5ET 井 1 。B(1) パッ ツア 上 よ に デー クタ を ど 秒 だ す 
LPRINT TAB(5 ) : PN ま 
LPRTINT TAB(5)s AD まま 
LPRINT TAB( 15 ) : BA まま 
LPRINT 
LPRINT TAB(10):NM ま TAB( 30 ) 』 サマ" 
FOUR J=1 TO 5 : LPRINT : NEXT J 
NEXT 1I』 52NKEIeIXMKhWSKB 
を と る 























うつ 1 了 U し LDSE 1 
3180 RETURN 
3070 行 で は 、 ど の キー で も 押せ ば 印刷 処理 に 移り ます 。 


3150 行 は 、 す で 前 に 印刷 し た 宛て 名 と の 間 に 空 白 行 を 出力 する ステ 
ー 2 党 。 


次 に 、 ブ ログ ダグラム 絵 リス ト を 赤 し まず 。 


第 4 区 ラン ダム ファ イル (1) 01 








次 に 示す の は 、 こ の 章 で 扱っ た デー タ を プリ ンタ に 出力 し た も の で 
す 。 あな だ た も た 玲 旧 み や くだ きい 

まだ た 、 い ろ い ろ る 集計 デー タ や 資料 な ど を 出力 する ルー チン を 作り 、 
宛て 名 書き を し た あと すでに 出力 きせ る よう に し て 、 窓 つき 封筒 を 利 
用 し て 発送 すれ ば 、 か な り 実 用 化 で きる と 思い ます 。 


030 
bbbbbbbbbb 
4 コ 6-/8 


トド SS 上 ま ヨ 5 


さも 
で 選 で で で CGCG 
1294 が ンチ 


4 グー プル 


101 
aaa88a88888 


よ ャ メッ 
トゲ カツ で 4 ド A 


680 
ddddddddgd 
ワー ゼー 7@ 


ア ケ リナ ミツ ヒ テ * | サマ 
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5・1 ディ スク を 有効 に 使 つ 


第 4 意 の 宛て 名 書き プロ グラ ム 、 い か が で し た か ? ディ スク と の 
デー タ の や やり と り 、 ご 理解 い だ だ け だ で でしょ うか 。 

ラン ダム デー タフ ァイル 管理 の 基本 は 、 お お よる を 第 4 章 に 述べ だ と 
お ぉ おり で す 。 数 値 デ ゲー タ を 扱い ま は せん で し た が 、MKI$、MKS$、 
MIKD$ を 使っ て ディ スク に 保存 し 、 便 いた いと たき に CVI、CV 豆 
6WMD で 雪 仁 に 変換 本 @。 と いう こと きえ わか っ て し まえ ば 、 あ と 個 
加減 乗除 を し て プリ ンタ に 出力 する と か 、 要 する に ディ スク を 使わ な 
い 場 合 の 操作 と 変わ りあ り ま せん 。 

昌 IM ゲー 12 人 0290FRERN 
〈 耳 に し ます が 、 そ れ は お を そら 〈 く 、 デ ー タ を 保存 する 容量 が きわ め て 
大 きい 、 セ ー ブ ・ ロ ー ド に 時 間 が か か らち ない 、 と いっ た あたり に 理由 
が ある の で は な いで し ょ うか 。 

し か し 、 容 量 が 大 きい と いっ て も 、 で きる だ け 有 効 に 利用 する に 
0 2 。 00 和 ro 
使い 方 届 ま うだ る た て 記 ょ うか 。 、 郵 便 番 号 、 住 所 、 番 地 で 81 セ 
クタ を 合い 。 epshue 和 本 
多大 使い 放 を し て い だ わ りり で 徐 。 

この 章 で は 、 デ ィ ス ク の 有効 利用 を テー マ に 話 を 進め ます が 、 で き 
た ら 話 に つなが り が あっ だ ほう が よい と 思い ます の で 、 前 童 の プロ 名 
ラム を 例 に と っ て 、 一 部 を 変更 し 、 一 部 ステ ー ト メン ト を 追加 し 、 ご 
「 説明 し た いと 思い ます 。 








D 





ムダ の な い デ ー タ 設計 


< 注 > 前 章 で は 住所 に 35 バ イ 前 章 で は 1 モク タ 内 に 1 名 分 の デー タ を 書き 込ん で いま し た 。 


ュー ニーーーーー ニ ーー ニーーーー ニ ューー ニ ーー マー ニー キーー ニ ーー テ ーー ニー 


ト を 割り 当て て いま し た が 、 人 ム 度 は 下 の 図 の よう に 3 名 分 の デー タ を 保存 する こと に し まし ょ う 5 
0 や は 4 70 イト 分 プ テ サス ( し 0 % N ま 
し て 39 バ イト と し ます 。 1 名 で 85 バ イト 使い ます か が ら 、 3 名 で 255 パ イト 、 つ まり 1 バイ ト 細 


未 使用 し いう こと に な り ま す 。 ほ は ほぼ 100 パ ー セ ント 活用 で す 。 








1 バイ ト 未 使用 
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る SC 1 ク 内 の デー タフ ォ ー マ ツ ッ ト お 内 まり 二 し わ の 6 ず 
問題 に な る の は フィ ー ル ド の 割り 当て で す 。 
前 章 で 、 


FIELD #1.20 AS NM も ,6 AS PN ま $,39 AS AD ま ,20 AS BA$ 


の よう に 割り 当て で いま し た の で 、 伺 じ 考 ん 方 を し て 次 の J う (に 定義 
ずれ ば よい ゆめ CO し (』 う WW 


FIELD ##1。20 AS N1 ま 。6 AS P1 も ,39 AS A1$,20 AS B1 ま 


FIELD 拉 1.20 AS N2 ま ,6 AS P2 ま ,39 AS A2$,20 AS BZ まま 
FIELD 1,20 AS N3 ま ,6 AS P3$,39 AS A3 ま ,20 AS B3 ま ま 


一 見 だ まき れ て し まい そう な 感じ で す が 、 こ の 場合 、 3 人 分 の 各 項 
民 が 局 で RE 大 条 WCO る こと は ん WWWRUTC、GE 
T を ずる ルル 。、 デー タ が 混 財 MC て し まい ま 二 。 

て すか ら 、 パ ッ メッ フ メア 人 紀 3 分 の フィ コー ルド 当座 属し だい の て し た 
ら 、 す べべ て ユン マ で 区 切っ て 次 の よう に つなげ て 定義 すれ ば よい の で 
0 





FIELD 1.20 AS N1 ま ,6 AS P1$,392 AS A1,20 AS B1$ 
ぅ 20 AS N2 ま も ,6 AS P2 ま 。32 AS A2$,2Z0 AS B2$$ 
ぅ 20 AS N3 ま ,6 AS P3 ま ,39 AS A3 ま ,20 AS B3* 


を し て これ を 少し 変形 し て 次 の め は よう に し て も 、 そ れ ぞ れ の 氏名 、 午 
便 番号 、 住 所 、 番 地 に 応じ た だ フィー ルド 幅 を 確保 する こと が で きま す 。 





⑱FIELD #1。 0O AS D ま も,20 AS N1$,6 AS P1$,32 AS A1$,20 AS B1$ 
の FIELD #1。 85 AS D ま ,20 AS N2 ま ,6 AS P2$,39 AS A2$,20 AS B2 ま $ 


FIELD 1,170 AS D も ,20 AS N3 ま ,6 AS P3 ま ま 。32 AS A3 ま ,20 AS B3 ま 





さこ ば P あい 3 う QE が お 申 も まち も と いあ 析 の FPP し 『 て 、 先 
頭 の D$ は 0 で すか ら 、 先 頭 に N 1$ が 入り 順次 B1$ ま で 設定 され 

ます 。 次 に めで あら た め て FIELD 文 が 定義 きれ 、 ま ず 85 バ イト の 

Dt ず が 居り 、「 を の うし みろ に 続い て N 2 @ーB2 も が 設定 きれ ます 。 

ここ (登場 する D$ は ダミ ー で 、 実 際 に は 何 も 利 用 きれ な いも の で ダミ ー 変 数 を 使う 
す 。 そし て この 85 バ イト と いう 数 は 、 答 の FIELD 文 で 定義 きれ て 

いる 変数 の フィ ー ル ド 幅 を 合計 し た も の で す 。 

つま り 、 坦 で て N1$ーB1$ の フィ ー ル ド 域 が 確保 きれ 、 失 で は を 
の フィ ー ル ド 幅 を も っ だ ダミ ー を 踏み 吾 に し て N2$ーB2$ の フィ 
ー ル ド 域 が 決め られ て いま す 。 と いう こと は バッ ファ 上 で は N1$ か 

ら B2$ ま で の フィ ー ル ド 城 が 作ら れ た と いう こと に な り ま ゆず 。 
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同じ よう に 、 二 の FTIPLD 交 に よっ て 、N83$8 か 63 すま で 糞 
催 作 き 和 た こと に が りあ まず ( ピ 
⑱ 一 つの 過程 で 、 ダ ミー の D$ は 0、85、170 バ イト と 変化 し 、 最 終 
的 に は 170 バ イト が 残り ます 。 「 

し が し この DU 准 、 ま の だ く の 多 ーー すか が から りら 、 グ ログ タ ダム て GEI 王 
PU て で る えん し な けれ ば よい 界 で す 。 

る て 、 こ れれ で だ い お ポ お TIELD 文 の 下 準備 が て すき で 他 まし が た 。 

要 は 、 ダ ミー 変数 を 使え ば 、 そ の うし ろ に 希望 の フィ ー ル ド 域 を 確 
保 で きる と いう こも を 再 衝 て いひ いただけ 肖 よび ゆら 思い ます 。 

ここ で も う 一 度 前 に 戻っ て 、⑳ の FIELD 文 を 次 の よう に 配列 を 
使っ て 書き 換え て み ま し ょ 2 う 。 





FIELDU #1.20 AS N ま (1).6 AS P ま (1),39 AS A ま (1),20 AS 
5 20 AS N ま (2)。6 AS P ま (2),.39 AS A ま (2),20 AS 
ぅ > 20 AS N も (3),6 AS P ま (3),39 AS A ま (3),20 AS 






を し て ⑤⑧ も 書き 換え て み ま す 。 


FIELD ##1。 0 AS Db,20 AS N ま (1).6 AS P ま (1).32 AS A ま (1),20 AS B ま (1 ) 
FIELD 半 1。 85 AS D ま も ,20 AS N$ も (2),6 AS P ま (2).39 AS A ま (2),20 AS B ま (2 ) 


FIELD ##1.170 AS DD,20 AS N$ も (3),6 AS P ま (3),39 AS A ま (3),20 AS B$ ま (3) 





も う 才 かりる 思い ます 。 

いく ら な ん で も 同じ 形 の FIELD 文 を 3 行 も 長 々 と 書く の は ちょ 
っ と サナ シセ ンス で すね 。 FOR 一 NEX 生 災 で も の 少し すっ きり る き 普 
も の で すず す 。 そう ん 人 の 0 よう し に 半 せ ま す 要 。 


8UU FOUR =1 IDU 3 
2Z10 FIELDU #1.85※( エ -1) AS D ま 。20 AS N ま (1 ) 


6 AS P ま (1).39 AS 生ま (T)。20 AS B ま も (1 ) 
ZZ0 NEXT 1 
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ずい ぶん さっ ぱり し た 形 に 表現 で きま し た 。 

この よう に 、 バ パッ フ テ を い ( つか の レレ ュ ユー ド で 使用 する 夫 合 に は 、 
文字 変数 を た くき ん つら ね だ り し な いで 、FOR-ーNEXT 文 に よっ 
て 短 旨 て でき る の で す 。 | る れれ 多い の 考え ん あ 、 く これ も る 大切 て すか ら 
ゼ ぜ け ひ 体 得 し て くだ きい 。 


きる て 、 前 章 で は 1 セク タ に 1 レコ ー ド を 書き 込ん で いま し た が 、 こ 
の 例 で は 1 モク タ に 3 レコ ー ド を 書き 込め ます 。 す る と 、PUT、G 
包 小犬 の I の し KU の 0C LU 0 NN 





GET、PUT す る セク タ 番 号 、 を の セク タ 内 で 何 番目 の レコ ー ド 
か が わか れ ば よい わけ で すか ら 、 イ ン ガ ッ ク 愉 アア イル ゆ の レ サ マヤ ド 稚 
号 を 3 で 割っ た 商 、 余 り を 利用 する こと に よっ て 求め られ ます 。 こ の 
辺 は 舞 催 倒 で 学 だ こと に し まし よう 。 

これ か ら 、 前 章 で 作っ た プロ グラ ム を 一 部 変更 ・ 追 加 し て 、 1 セク 
タ に 3 名 分 書き 込め る よう に し よう と いう わけ で す が 、 一 番 大 き な 変 
更 点 は FIELD 文 で す 。 

そし て 、 い ちば ん 大 切な 追加 点 は セク タ 番 号 、 セ クタ 内 で の レコ ー 
ド 番 号 を 計算 する ステ ー ト メン ト で す 。 

す て に て きき 上 の の や いる の る ジ サダ ルム に 手 を ああ た W ま いう こま で すか 
ら 、 条 件 文 な ど 、 多 少 ま わり くど い 点 も や む を えな いと 思い ます 。 

し が し 、 個 人 で 、 上 分 の 信 事 に 合っ た デブ ログ クス ろ ム を 作 み うふ よ と する と 
き 、 や は り 最 初 に 小 き な ブログ ラム を 作っ て 、 次 に 、 あ ん な こと も し 
た いこ ん な こと も し だ いも & 欲 が で て きる 、 容 琴 馬 昌 加わ 《 ゆか ん し 
で っ グル は ダグ AA を あゆ 素性 演 6 の る 


それ で は 、 プ ログ ラム の 手直し に か か り ま す が 、 順 を 追っ て の 説明 
は や め 、 修 正 後 の 全 プ ログ ラム リス ト を か か ば げ 、 追 加点 は 緑色 の 文字 
で 、 修 正 個所 は 緑色 の アミ て 示す こと に し まし だ た 。 


デー タ 書 き 込 み ブ ログ ラム 


Tile name = 一 > gmaill 
1984 .6。20 

andom data い ビ ュ 1 も @ 

8 いら @ 


UIDTH 40,20 : CONSOLE 0。25,0。0 
CLEAR 5000 : DEFINT A-Z 
日 1M NN 


じ LS 


配列 宣言 を し て メモ リ を 有効 に 使う 


” open file 
OPEN "R' , せ 1 , 帳 dmaildatl 


FUKv』 き 1 1 (3 


NEXT 1 
j』F LOF(1) く 20 THEN GOSUB 1000 : GOT 結 
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UPEN 
=1 : 


UP 生 。 


GOTO 2Z20 


OPEN 「A  , キ 2 人 smndx1dat | 


” data input セ 


LUCATE 10。5 


FOUR 1 
じ し S 

PRKINT 
INPUT 
IF CD= 
PRKINT 
INPUT 
PRKINT 
INPUT 
PRKINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


IF Y ま = “ 


=1 「U 3000 : 


00 。 
NEXT 1 


PRINT まり リョ の ジス 


"コー ト * No 。 所 人 の メ " 
0 = デ > sCD 

を ん た 。 THEN GOTO 490 
- ナ マエ ye 2 
"s 仙 1 ま 

12 ビ ピラ いい ey 


(END=9999 ) “ 


めい 


"m ッ チ 9 ト ^ ウ MR 

ーー> " ,:A4$ 
0K デ " ス か が (-y/n 7 
N'′ OR Y* ま ="n* 


? Y 中 
THEN GOTO 250 


" data い Fi も e 


本 ーー ン ] ) 年 コイ 
隊 記 じゃ (ピー ェ 1 ) MDUU 31 


セク タ 番 号 の 計算 
セク タ 内 で の レコ ー ド 番号 を 計算 


1F REC=1 THEN GOTO 420 
5 | 生ま 。 ら ヒ し 
PRINT W2rCD 


PUT W1uSEC 


レコ ー ド の 通し 番号 を 加算 


GOTO 250 


- 千 le close 
し LUSE 井 1 。 井 2 


じ LS 


LUCATE 10,4 
LUCATE 10,5 


。 PRINT "ホカ / ラコ" ト ヲ ラ ミ マ スカ" 
。 INPUT ”  ( y ノ n ) "isY ま 


IF Y$="Y' OR Y$=" ッ " THEN RUN "MENUO4 








560 END 

1000 ・ 

1010 “" data count sub 
1020 OPEN "1 , 拉 1。 
1U30 MIEE MNOUT EUF グ ) 
1040 INPUT 昔 2。DUMMY 
1050 P=P+1 
1060 MEND 
1070 P=P+1 
1080 CLOSE 昔 2 
1090 RETURN 





レコ ー ド 数 の 加算 


前 曽 の プロ グラ ム 「DMAIL 1」 を ロー ド し て 、 色 アミ の 部 分 を 
修正 し 、 緑 色 の ステ ー ト メン ト を 追加 入力 し て くだ さい 。 

115 行 の DIM 文 は 、F IELD 文 の 定義 に 使う 変数 の た め の 配 列 で 
す が 、 こ れ は な くく て も か まい ませ ん 。 配列 を 宣言 し な けれ ば 、 自 動 的 
に 10 個 分 は 確保 きれ ます が 、 こ の よう に 、 使 用 する 大 きる だ け 宣 言 し 
て お け ば 、 メ モリ の 節約 に な る と 考え たから で す 。 

155 行 か ら 165 行 の フィ ー ル ド 設 定 、 も うお わか り で すね 。 

412 行 、414 行 で 、 セ クタ 番号 (SEC)、 セ クタ 内 で の レコ ー ド 番号 
(REC) を 決定 し て いま す 。 

セク タ 番 号 (SEC) は 、 レ コー ド の 通し 番号 (P) か ら 1 を 引い 
た 数 を 3 で 割り 9、 そ の 商 に 1 を 加算 し て 計算 し ます 。 

セク タ 内 で の レコ ー ド 番号 (1 番目 の レコ ー ド か 、 2 番目 の レコ ュー 
ド か が 3 和書 且 の レコ ー ド か 、 ほ と いう MMIEOCN IM( ツ デック タク スウ 
ァイル で の レコ ュー ド の 通し 番号 (P) か ら 1 を 引い た 値 を 3 で 割り 、 
その 余り (0 か 1 か 2 の いずれ か ) に 1 を 加算 し て 決め ます 。 

ここ で いう レコ ー ド の 通し 番号 は 、 初 回 の 書き 込み で あれ は 190 行 
で 「1」 に 設定 され 、 追 加 モ ー ド の 場合 に は 1000 行 か ら の サブ ルー チ 
ン で 決定 きれ で いま すね 。 つま り 、 こ の 値 堂 便 っ で を せ ダ 多 内 て 人 ② し p 
ー ド 番号 を 算出 し よう と いう わけ で す 。 算出 に は 「MOD」 を 使っ て 
いま す が 、 こ れ は 整数 除算 の 余り を 求め る も の で す 。 

次 に 、.416 行 で は 「 も し セク タ 内 で の レ ュ コード 午 写 が 1 の と き に は 
420 和 肝 ベ ジャ ンプ と が う ペ ステ アヤ ド オレ トム に ル ん ON が こ WU 
418 行 で 新しい セク タ を GET し よう と する と 「Input Past End」 の 
エラ ー に な っ て し あ も から て しま 。 

418 行 の GE 丁 文 は な ぜ 入 れ て お く か と いい ます と 、450 行 で 1 セク 
分 まる まる 下 U 生 ずる けず か らら 、 こ こ で て GET し て す て 二 凍 績 
イル に 書き 込ま れ て いる 同じ セク タ 内 の デー タ を バッ ファ 上 に 取り 出 


僅 修 正 ・ 追 加 が 終っ た 閑 
ファ イル 名 で セー プ 表 大 
を 忘れ な いよ うに 届 還 
に 


< 注 >412 行 の 円 マ 請 良 記 軸 
は 整数 除算 の 商 譜 請 議 
の で す 。 
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し ませ ん と 、450 行 の PU 丁 文 で 消え て し まい ます 。 

だ た と えば 、 あ る セク タ の 第 1 、 第 2 レ ュ ー ド は すでに 書き 込ま れ て 
い だ と し ます 。 そし て 今回 3 番目 の レコ ュー ド を 入力 し まし た だ た 。. こ の 
き 、 こ の セク タ を GE し て 第 1、 第 2 レコ ー ド も バッ ファ 上 に 取り 
出し ませ ん と 、 バ ッ フ ァ 上 の 第 1、 第 2 レコ ュー ド に 割り 当て られ た 秦 
数 に は 何 も 入 っ て いま せん が 取 、 こ の 状態 で PT する と 、 第 3 レ ョ 
ー ド だ けが 書き 送 ま 第 1 、 第 8 レラ ュー ド は クリ ア さ ぁ 砂 生じ まき いき 
す 。 の ミス 作 よ く (お あめ ま す の で 沖 意 し て (だ きい 

460 行 で は レコ ュー ド 番 号 を 1 進め て いま す 。 


炊 に デー タ 修 正 の プロ グラ ム に 移り ます が 、 変 更 ・ 追 加 個所 は 、 い 
ま 説明 だ よう ME の で ます 。 ブ ログ ラム を 追っ て みて (だ SU 


デー タ 修 正 の プロ グラ ム 


file name = 一 > 還 束 加 Z 
1984 ,6。,20 


andOm da モ 8a COFCecC 
らい @ 









4 
し 
ア 
ア 
ア 


100 MIDTH 40,20 : CONSOLE 0,25,0,0 
110 CLEAR S000 : DEFINT A-Z 

115 UIM NM まま (3 ) ,PN ま (3) 。 AD ま (3) 。BA ま (3 ) 
2 し じ L5 

0D 「 


140 OPEN "R' , キ 1 。 半 還 B 加 証 


145 FOR 1=1 TO 3 


1 つつ NEXT 1 


60 “ 

170 GOSUB 1000 : FLAG=1 

180 DIM A(DNM) : DM=0 : GOSUB 1000 : INDEX=DM 
WU 

4UU0 LUCATE 5 を FLAG=0 

Z10 PRKINT “ ト " ナ タ / シュ 9 セイ テ " ス カ (END=9999 )?* 
eeD LDLATE イ ,6 」 INPUT "ーー ト ルッ ココ "9 "ED 

2Z30 IF CD=9999 THEN GOTO 300 

Z40 LOCATE 10,.8 : INPUT "OK テ * ス カ ( y ノ n )":Y ま 
Z つ 0 IF Y ま ="N' OR Y ま ="n*' THEN CLS : GOTO 200 
Z60 50SUB 2000 

Z70 CLS gz GOTO 200 
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じ LHSE せ 1 


じ し S 

LOCATE 10。4 : PRINT, 本 / ぅ 33 ト MM 
LOCATE 10,5 : INPUT ( . y/n 、 ) 、#V 還 

IF Y$="Y' OR Y$=" ッ ” THEN RUN MENUO 
END 


1ndex Peagd 


DPEN "1"。#2., 議 識 隊 還 3 
MHILE NOT EOF(2) 
DM=DM+ 1 
IF FLA6=1 THEN GOTO 1080 
INPUT #2。DUMMY : GOTO 1090 
INPUT #2,A(DM) 
MEND 
CLOSE #2 
RETURN 


~ da 七 8 CoOFFec sub 


CLS 

FOR 1I=1 TO INDEX 
IF A(I)=CD THEN FLAG=1 : 服 =I : 1=INDEX 

NEXT 1 

IF FLAG=0 THEN GOTO 2250 

SEC=(P-1) \ 3+1 

REC=(P-1 ) MOD 3+1 

GET #1 SEC 

LOCATE 2,3 

LOCATE 4,4 

PRINT 

PRINT NMR : INPUT '" = 一 > ":A1$ 

IF A1$="" THEN A1$= 還 RE 


PRH 人 NT "タダ" ライ テ "-ー タ サラ に 
PRKINT “ララ ュ 9 セイ チリ ルル "RET 


@ 
[4 
4 
に 


PRINT ENmiKRE6 YE 
IF A2 ま ="「 (REC 


"3 A3$ 


BA ま ( ( 還 TE: 
IF A4$= THEN_ A4$= 
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LSE 「 | 還 LSETf | 量 夫 
LSET =A3 ま : LSET ニム 4 員 
PU]1 1 SE し 

RETURN 


pEEP 》 B 
LUCATE 8, 
FUR 1=1 T 
RE TURN 


に も 2 EEFP 
を PRINT ツ プ 02 ルト DDO ウチ リセ 2 
U 3000 : NEXT 1 





印刷 プロ グラ ム 
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file name = 一 > qmail8 
1984 。6。20 

addres== DF1n 七 Ou セ 

8 いら 


MIDTH 40,20 》: CONSOLE 0,.25,0,0 
CLEAR S000 : DEFINT A-Z 

DINM NM も (3③),PN ま (3) AD まま (3 ) 。 BA も (3 ) 
じ し ち 


OPEN "R',#1 。 靖 BmilBat 


FOR 1=1 TO 3 


NEXT 1 


5USUB 1000 : FLAGC=1 
DIM ADN),B(DM) iDM=0:G0SUB 1000: INDEX=DM 


kOCAHE・10。4 :.PRINT」 7 ます / イン 9 ツラ 。 マス" 
LOC 有 IE 10.39 : FRKOINT コー トド ルル" ラコ 09 2901 
LOCATE 10,6 : PRINT く END=9999 >" 
LOCATE 10,8 : INPUT | => CD 


- TF CD=2229 THEN DIM REC(N) : GOTO 300 
LOCATE 10.8 : PRINT 
N=N+ 1 「 

B(N)=CD 


GUTO 230 セク タ 内 で の レコ ー ド 番号 を 格納 する た め の 配 列 


5USUB 2000 











30 1 
302 
3 り 9 
304 
310 
づ ZU 
330 
340 
うっ 0 
360 
う 7U 
380 
1000 
1010 


FOUR を 1 15 N 
REC( 1 )=(B(T)-1) )MUU 3+1 ょ * 
PD【 オ う ニ で ロ (リリ ナー トナ ) 党 コキ WW 

NEXT ] 


セク タ 内 で の レコ ロー ド 基 号 
その デー タ が 属す る セク タ 番 号 











5USUB 3000 


し し S 

に OUDATE 4070 ) PRINT" 移 ノラ う ラコ" ドラ 0 
し 介 じ 生 1 世 まり 9 ! 1NPUT M ( 「y プ n ロ 7 。 1 1 全 
IF Y ま ="Y' OR Y ま ="y" THEN RUN MENU04M 
END 





1ndex Fead 


4 り そ は 


1030 
1040 
100 
1060 
1070 
1080U 
1020 
1100 
1110 
2Z000 


Z010 


Z02Z0 
2Z030 
2040 
2Z0 っ 0 
2060 
2Z070 
2Z080 
3000 


3010 1 


302Z0 
3030 
3040 
3050 
3060 
3070 





DPEN "1 | 。 せ 2。 條 51ndXx1dat 
MHILE NOT EUF(Z) 
DM=DM+ 1 
IF FLAG=1 THEN GOTO 1080 
INPUT #2。DUMMY : GOTO 1020 
INPUT 拉 2。A(DM ) 
MEND 
CLOSE ##2 
RE TUKRN 


プア 


find index Sub 


FOR =1 TO N 
FOUR J=1 TO INDUEX 
IF BK(1I)=A(J) THEN B(T )=J : J=INDEX 
NEXT J 
NEXT I 
RETURN 


PC 1n 七 Ou セ も Sub 


し し ら 

LOUCATE 10, ゝ 
LUCATE 10,6 
LOUCATE 10,8 
Y=INKEY ま : 


PRINT イッ ルル 9 

PRINT "ファ" リン タ ブ セ り トッ チク タ 凍 間 
PRINT "Hit any key if DK' 
F Y$="′ THEN GOTO 3070 


mg ee  @? @@ 
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3080 FUR II=1 TO N 
3020 DE『 穫 1。B(L) 
づけ ツウ P=REC じ (1 ) 


3100 LPRKINT TAB(S5) 
3110 LPRKINT TAB(S5) 
づつ より LPRKINT TAB(15) 


3130  LPRINT 
3140  LPRINT TAB( 10 ) :NM 束 0P) : TAB( 30 ) 』 "サマ " 
3150 FOR J=1 TO 5 : LPRINT : NEXT J 
3160 NEXT 1I 

3170 CLOSE #1 

3180 RETURN 





メニ ュー ブロ グラ ム 


file name = 一 > MENMO4 
1284 。6。20 
menu PFOgram ToOF addres ら = PF1inting 


MIDTH 40.25 : CONSOLE 0,25,0,0 
UEFINT -Z 
し LS 
READ MENU 
DIM M(MENU) 
FUR =1 TO MENU 
READ NM も ({) 
NEXT 1 


MMGAEE、 て 4 ) PRINT ( 下 」 
RINT STRING ま (2Y リー) チュ 
LOCATE 7,5:PRINT 敵 較 請 語 衣 


DCRTE 7。@ 『 PRINT "に 
PRINT STRING*(21 "ーー" 


FUR 1=1 TO MENU 
LUCATE 8,/+[ : PRINT MM ま (1) 
NEXI 1 


LOCATE 11。13 : INPUT "input job number "isNO 





LOUCATE 8。15 : PRINT M ま も (NO ) 
LOCATE 18,16 : INPUT "OK (y/n ) " sY ま 
330 IF Y$="N'" OR Y ま ="n" THEN CLS : GOTO 200 
340 UN NO GOTO 360 。,370 。380 。 390 
Mi 
360 RUN 
370 RUN 関 華 識 
380 RUN 』qn | 
320 CLS 
400 LOCATE 15,7 : PRINT "シコ " ト ヲ オリ リマ ス “ 
410 END 
1000 “ 
1010 “ data area 
1020 “ 
1030 DATA 4 
1040 DATA テ "ー タ / ノ ニュ ウリ ョ ク 
1050 DATA テ "ー タ / シュ ウ セ イ 
1060 DATA アテ ナ / イン サ ツ 
1070 DATA オウ 9 リ 
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1 ら 6 敵 語 記 
5・ ど マス ター メニ ュー ブ プログラム 
CC 生 は 終り で す 。 
と いう 点 に 重点 を お 
きま し だ の め の て 、 プ せ グ ヌス タム ゆめ 較 一 て は だ (ES お 6 しみ の な か が つる が た と 
加 い ます 。 し か し 、 本 書 の 目的 は 、 フ ァイル の 扱い を 理解 し 、 デ ー タ ダ 
を どう 保存 する か 、 そ し て 各種 の 処理 プロ グラ ム を どう 連結 する か と 
いう 点 に あり まし だ の で 、 を その 意味 で は 、 ま だ 入門 段階 で は あり ます 
が 、 一 応 の 使命 は は だ た せ だ の で は な いか と 思い ます 。 
これ を ヒン ト に 、 あ な た だ の 仕事 に 合っ た プロ グラ ム の 構築 を され る 
こも 欠 期 待 じ も まゆ 。 


きる あ 、. を それ で は ば は メ ュ ュ MM の ログ ラム の た だ た め の メ ニュ ンジ ンタ スム 、 
つま り マ スタ ー 版 を 作っ て お し まい で す 。 こ れ を RUN さ る せ て 、 い ま 
まで の ブロ グ ク ム が 下 幣 に 走 あ か どう か テス トド し て みて て だ る い 。 


Tile name = 王 > MASTEK 
1.284 。 / 1 
8a 弓 も ら じ menu PCO9gFP8m 


=ave MASTER 


MIDTH 40,25 : CONSOLE 0,25,0,0 
CLEAR 5000 : DEFINT A-Z 

CES 

READ MENU 

DIM M$ も (MENU) 

FOR 1=1 TO MENU 

_ READ M$*(1) 

NEXT 1 


LOCATE ?,2 : PRINT 'r'j 
PRINT STRING ま (21 "ーー")j "っ! 
| 


EDCATE /,3KPRKINT 
UEAIE ()A0 7 PRKINI と 


スタ ー メ ニュ ー フ 5 ロク" ラム 
PRINT STRIN6 ま (21 。"-")j「 ュ " 
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2Z60 FUR 1=1 TU. MENU 

の 48 LUCATE 8,5+[ エ : PRINT NM も (1 ) 

ノ Z80 NEXT 1] 

290 

300 LUUDAEE 11)139 > INRUF A ツ コ 9 ラ 2 ト * ウ クツ "(5NO 
310 LUCATE 8,15 : PRINT NM も (NO ) 

32Z0 LOCATE 18,16 : INPUT "OK < ッ ノ /n> "YY まま 
330. IF Y$="N" OR Y ま ="n" THEN CLS : GOTO 200 
C790EN0I に 細い 9MIE1BHHB ECT<18 CT46 MCTS10 RC と 】6 馬 4161B 
ん jo18 

360 RUN "MENUO1 

37Z0 RUN MENUO2* 

380 RUN “MENUO3 

390 RUN “MENUO4 “ 

400 CLS ' 

41U0 LUOATE 15/7、* PRKINT SHUN ラ オリ 022 
740 前 NB 

1000 「 

1010 " data area 

MM の 249 

1030 DATA 5 

1040 DATA エイ タン コ "* 

10 つ 0 DATA 

1060 DATA アテ ナ / イン サ ツ 

1070 DATA アテ ナ / イン サ ツ No。2 

1080 DATA 
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5・3 ファ イル を コピ ー す る 


札 た あめ は 。、 第 1 間宮 オ リサ ジル パ の ルス チム デイ スグ た し て ま 江 政 
RSE マツ ド な が 実行 し 、 デ ダイ スグ 保 件 き 和 て いる グロ ググ テム な かな ど を 
画面 に 表示 る きせ まし だ が 、 こ の 中 に は 、 あ まり 使わ な いも の が た だ たく る 
ん あり る す 。 

た で 革 誠 時 二 的 伺い で もう な が ツ ウロ ググ ムク (ツア デイル) だ 信人 W。 
ディ スク コー ド だ け を コピ ー し だ た ディ スク (24 ペ ー ジ の "の ディ スク ) 
人 牧 も 6 (てこ だ) 二 旨 よ 8 

な お 、 こ こ で の ディ スク 名 は 、24 ペ ー ジ に 示し た 、 な と どの 黒 マ 
ル 数 字 で 呼び ます の で ご 請 承 くだ さい 。 








ある が イ スグ に 凍 き 商人 全 て いる グロ グ タ バム (スズ ァ イル) を 提 の が 
ィ ス ク に 移す こと を 「 フ ァイル を コピ ー す る 」 ま だ は 「 フ ァイル を 転 
送 す る 」 と いい まず 。 

この 役目 を 果たし て 《 れ る の が 、 ユ ピー 版 シ ステ ム デ イィ スク に 志 る 
め ゆめ ら て いる 『【FCOPY」 と いう ググ ウム で すず 。 

る あ 、 そ を それで は きる っ を そく 作業 に と 9 が か り ま じょう 。 

まず 、@ の ディ スク を ドラ イブ 0 に 、@ の ディ スク を ドラ イブ 1 に 
民 W に も た で 人 な 半 5) 。 

次 に T ま CDB WDW 閣 mN し ん 表 角 も まず 。 


RUN “FCOPY “ 





する と 、 次 の メッ セージ が 表示 され ます 。 





これ は 「( 転 送 す る ) 元 に な る ファ イル ディ スク リプ タ を 入力 し て く 
だ さい 」 と 間 い か け て で いる の て す 。 フ ァイル ディ メタ リサ ブタ に つい て 
わか ら な い 人 は 17 ペ ー ジ を ご らん くだ る きい 。 

最初 に 「DFMCD」 を コピ ー す る こと に し まし ょ 2 う 。 

炎 の よう た キャイ オン し てん?《/ だ きい 


"0iDFMCD' 





ドラ イブ 0 の ファ イル に 対し て は 「 0 : 」 は 省略 し て も か まい ませ 
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ん が 、 ダ ブル クォーテーション は 必ず 入れ て くだ さい 。 
する と 、 次 の メッ セー ジ が 表示 され ます 。 





今度 は 「 転 送 先 で の ファ イル ディ スク リプ タ 」 の 入力 を 求め て いま 
7 

だ も は ドイ ダグ ダ 1 の ディナ オス に 、 ま た アア カイル 者 は 変更 しない で 
と に し まず の 、 次 の よ の し 入力 し ます 。 


:1 3sDFMCD" 





する と 、 人生 の よう に OK か あら う 0 能 認 し 人 電 きま す 。 





だ いじ よう あて で し たら FTY」 が 玩 ご イン し 葬 (0 
敵 あ ( や る と 『K み オル 0 MM が も 「 ド 半 剖 0 の ディ クベ 
「DFMCD」 が 転送 きれ て 、 次 の よう な 表示 に な り ま す 。 





ファ イル の コピ ー を これ で 終り に する な ら 「N」 を キー イン すれ ば 
ょ い の で す が 、 私 た ち は も う 少 し 作業 が 残っ て いま す 。 に 埋 
20 0 0 

する と 再び ファ イル ディ スク リプ タ の 入力 に な り ま すか ら 、 同 じ 要 
個 て 炎 に 未 ず アデ ナイ オル 天 宛 コ ゼー し て (だ き ゅ *Y。 


OMMEUPY" 
USYSHSK 
"0:VOLCOPY “ 
"0:AUTOUTY“ 
USPFUEF 
せ *FEUPY「 
0sFCOPYM" 
0FCOPYEB 


を し て 、 最 後 の フ ァイル の コピ ー が 終っ た ら 「N」 を キー イン し て 
この 作業 を 終り に し まし ょ う 。 
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き て 、 本 当 に さ ピ ビー で きた か で 9 の 柏 雪 上 て なみ まし ょ う 。 
KMES。 1 


画面 ば 次 の よう に な り ま し た 。 


FILES "1』" 


LUFMCDU 
MCUPY 

に から 19 ト < 
VULCUPY 
AUTUUTY 
に 尽 秒 居 還 

峡 陣 RA 
ROOM 
ド FOURMMEB 


いき 破 5 宮 9 応 es 店 <eg 齋 5 京 @ 前 9 上 いや) 
js9 還 99 必 99 還 99 四 8o 還 99 思 89 思 9 所 59 
CD) び ) 〇 の) O) び ) び ) の ) び ) ぴ ) 
に は CDS NO 本 トト 


140 じ Cl1us=aters Free 


に = Lo YA 
有 





うま くい 0 の お ば の の 

を それ で は 、 ド ライ ブ 0 側 の ディ スク て を 取り 出し 、 ド ライ ブ 1 側 の 
の デス ク を トウ イジ 0 セッ トド し まし は 

の ② の の ディ スク は 「 オ リ ジ ナ ル の シス テム ディ イス ク 」 の コピ ー 版 と し 
て 大名 に 全容 し て きま し ょ う 。 


な お 、 一度 に 複数 個 の ファ イル を 転送 コピ ビー すず る と ざき は ご こ ユ ー テ ィ 
り リネ イブ プログ クム 
FCOPYM 


便 う ょ 便利 定 。 あま て だ めし て みて ( 沈 ゆい 。 
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